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Preface 


The first book in the 'Exploring Adventures' series was published 
in 1983. The series proved a great success and started many people 
off on the adventure-writing trail. Since then scores of people have 
written to me about the books, and a common thread running 
through most of the letters has been the question: 'When is the next 
one coming out?' 

Well, here it is. Using the first book. Exploring Adventures on the 
64, you could produce reasonable text-only adventures in Basic. By 
the time you've finished reading through this one, you should be 
in a position to produce text, graphics or role-playing games, using 
tape or disk as a storage medium. Generally you should be able to 
improve dramatically on those earlier games. 

Although much of what I've got to say is still in Basic, the introduc¬ 
tion of a number of machine-code routines speeds things up con¬ 
siderably, and the use of a compiler will enable you to write games 
with lightning-fast response times. 

By taking a long look at text compression, room descriptions can 
become lengthier, and an improved parser (in either Basic or machine 
code: both have their advantages) now provides for Infocom-like 
complexity. 

Many thanks to everyone who has written in with suggestions for 
this book, and thanks also to those people who took the time and 
trouble to write their own adventures using the techniques in Ex¬ 
ploring Adventures on the 64 and let me have a look at them, in 
particular Andrew Cray, Ray Davies, Jack Knight and John Ryan. 

A dedication? To anyone who writes or plays adventure games, and 
M.U.D. in the eye to anyone who doesn't. 


P.G. 
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Introduction 


While many of you will probably have read the first book in this series 
of adventure-writing guides, a fair number will have neither seen nor 
heard of it. So if you old timers will bear with me for a while, let's 
take a look back over the last few years, and trace the progress of 
what has become one of the biggest selling types of computer game. 


The history of adventure games 

By now just about everyone must know something of the history 
of the first-ever 'real' adventure game. This, of course, was 'Col¬ 
ossal Cave Adventure' by Crowther and Woods, which ran in about 
300K-worth of Fortran on a DEC PDP-10. 

How anyone could write a text adventure game in Fortran is beyond 
me. I had enough trouble using Fortran at university writing scien¬ 
tific programs to try to predict the rate of decay of Wolf-Rayet stars. 
Even printing out a table of results was hard work. 

Crowther and Woods, however, did manage it, setting a standard 
that has yet, in most people's opinion, to be bettered. It was a great 
improvement over the simple 'Wumpus' type of game that went 
before it, in which all you had to do was to explore a very small 
number of interconnecting caves, hoping to find an arrow and shoot 
the Wumpus before being attacked by bats or sailing down over the 
edge of a precipice. 

In 'Colossal Cave' the player had to find and manipulate many dif¬ 
ferent objects, explore over a hundred different locations, and solve 
many ingenious problems before being carried off into the sunset 
by hordes of cheering elves. 

Little did Crowther and Woods know what they were letting the rest 
of the computer world in for. Before long Scott Adams had crammed 


'Adventureland' (his first adventure) into 16K of TRS-80 computer, 
and then the adventure writing and playing world really took off. 

'Zork', from Infocom, was the next great adventure game, running 
on three disks for a variety of computers - another superb game, 
with a variety and richness of prose that has seldom (if ever) been 
bettered. The Hobbit', from Melbourne House, was the first of a 
new breed of graphical adventures, with simple pictures showing 
each location, instead of vast reams of text describing them. 

Which type of adventure you prefer is obviously up to you. To be 
honest, I don't particularly like graphical games, as I prefer to pic¬ 
ture the scene for myself, but if that's the type of game you like, 
you play and write them! 

'Zork' and the disk-based version of The Hobbit' are probably the 
two 'state-of-the-art' adventure games in the text and graphical fields 
respectively. 'Valhalla', from Legend, started a new trend towards 
animated adventures, and there followed a whole host of so-called 
arcade adventures, with the gifted software house Ultimate leading 
the field here. 

To my mind these are not adventure games at all, and so they'll 
receive no further mention in this book. If you want to play them 
(and even I'll admit to dabbling with a joystick every now and again) 
that's fine, but you'll have to ask Ultimate how to write them: I'm 
not going to tell you! 

Finally, we have the great game 'M.U.D.', short for 'Multi-User 
Dungeon', a vast adventure game which many different people can 
play at once. Since the micro on your desk is not likely to match 
the mainframe computer at Essex University used to play this game, 
there's not much point talking about how it was written, but if you 
ever get the chance to play it, grab it. You'll need a telephone 
(preferably someone else's), a modem, and access to the mainframe, 
but it's worth having a dabble. Just the shock of finding other peo¬ 
ple in your adventure world makes it stand out from other games. 
However, don't expect those other people to be nice to you. 


Aims of this book 

In the 'Exploring Adventures' series no knowledge of Basic or 
machine code was assumed, and we started right from scratch, with 
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lessons in Basic before going on to the nitty-gritty of writing adven¬ 
ture games. 

In this book I assume that you are reasonably competent in Basic 
programming, but not necessarily in machine code. All the machine- 
code routines will be presented in their machine-code form, if you 
happen to own an assembler, or as a Basic loader, so you can just 
type them in and use them. You'll also be told how to adapt them 
to your own adventures. 

The only exception to this rule will be the Basic compiler, which will 
be shown as a hexadecimal memory dump, because it's such a vast 
program. We'll worry more about that in Chapter 10. 

Back in the 'Exploring Adventures' days, the programs that could 
be produced using the techniques described were not of earth- 
shattering proportions, although with a little thought and ingenuity 
you could succeed in producing a quite large and interesting game. 
The three things that were 'wrong' with this approach were: 

1) You couldn't produce any graphics. 

2) It could only handle a VERB NOUN input. 

3) The response time was not as fast as one might like. 

Moreover, it was pretty difficult to produce lengthy room descrip¬ 
tions and have a large vocabulary. All these problems will be solved 
in this book. 

Since many Commodore 64 owners must by now own disk drives, 
it would be a shame to leave them out, and so we'll be concentrating 
on them as much as on tapes, although tape-only users will still be 
able to use most of what is included here. 

Some (a very few) routines will be device-specific, so apologies in 
advance if there are any that you can't use on your particular set¬ 
up. The only one that may present major problems is the compiler 
program, since that is most definitely disk-only. Sorry about that, 
tape users, but I couldn't find a compiler that would work on tape 
- everything seems to require a disk drive, which really is not 
altogether surprising. 

Still, you could always borrow a friend's disk drive! 
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Conclusion 


Unlike the 'Exploring Adventures' series, which explained everything 
for the beginner (and was inevitably too slow for some people), in 
this book I'll assume that you want to get on with writing adven¬ 
tures, that you know a reasonable amount of Basic, and you want 
the quickest results in the shortest space of time. You won't be able 
to produce an adventure in a weekend, but, using the techniques 
in this book, it shouldn't take you too long. 

So, without further ado, let's look at how we might use graphics 
and sound in an adventure game. 


12 


2 

Graphics and Sound 


Introduction 


Adventure games come in many shapes and sizes, and cover a wide 
range of topics. You can buy text only games (e.g. 'Zork'), text- 
based games with additional graphics (Level Nine's work), games 
that are largely graphical and have only the most rudimentary of text 
descriptions ('The Hobbit'), loosely traditional adventures with 
animated graphics ('Valhalla'), icon-adventures ('The Fourth Pro¬ 
tocol'), and the latest genre of 'arcade-adventures' ('Blackwych'). 

This book deals solely with the first three types of games. It ignores 
animation, icons and arcade games, since they are not really adven¬ 
ture games in the traditional sense of the word, and most of them 
owe very little to the real world of adventure-quest solving. In this 
chapter we'll look at adding graphics and sound to more traditional 
adventure games. 


Existing graphics 

A number of highly successful games have made use of no more 
than the existing Commodore 64 graphics character set. For every 
location you have a simple graphical picture of the area (e.g. 'Mystery 
of Munroe Manor'), which may or may not tell you something about 
the room that you're exploring. 

These sort of graphical pictures are easily built up and appear vir¬ 
tually instantaneously on the screen, but they look clumsy and take 
up a fair amount of memory. All that is required to draw them is 
a great deal of patience, and a thorough knowledge of the characters 
that the 64 can produce in all its variety of colours and reverse/nor- 
mal fields of display. 
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Consequently I'm not going to say too much about them. If you 
want to use this sort of display, it's easy enough to implement. 
Whenever you print up a room description you should also have a 
collection of simple PRINT statements filled with whatever graphical 
characters are necessary to build up a picture of that room or loca¬ 
tion. You won't be able to achieve anything very sophisticated, but 
reasonable pictures can be produced (as anyone who has seen any 
of the old Cursor magazine programs can testify), and you will be 
justified in calling your game a 'graphical adventure'. 

However, using the Commodore character set to produce 
sophisticated graphical adventures is like trying to paint the Sistine 
chapel by numbers. In order to produce anything of any lasting quali¬ 
ty we have to resort to other methods, of which the simplest and 
easiest is altering the existing character set. 


New graphics 

Our first example will only alter the alphabetic characters on the 64, 
and can be used to give a kind of 'gothic' image to a game, or a 
'futuristic' image, or whatever, depending on the type of character 
set you use. The following example produces a futuristic set of let¬ 
ters, and looks quite interesting. 

1 PQKE53280 • 9: P0KE53281.7iPRINT"CCLR.BLK3CHARACTER 
SET!"iPRINTCHR* <8> 

2 PRINT"CCD3JUST HANG ON WHILE WE READ SOME DATA I 
N. " 

3 P0KE52.48 s P0KE56.48 8 CLR 

4 P0KE56334,PEEK(56334)AND254 
6 POKE1.PEEK <1)AND251 

8 FQRI=0T05118POKEI+12288.PEEK(I•♦•53248) 8NEXT 
10 PRINT"CCLR3" 

12 POKE1, PEEK <1)0R4 

14 P0KE56334•PEEK < 56334)OR1 

16 P0KE53272.(PEEK(53272)AND240)+12 

18 FOR 1=12296 TO 12527 s READC:POKEI * Cc NEXT 

20 REM ***DATA FOR ALPHABET*** 

22 DATA254.198.254.198.230.230.230.0.252.206.206.2 
52.206.206.252.0 

24 DATA254.198.192.192.192,198,254,0,252.206,198,1 
98,198,206,252.0 

26 DATA254,198,192,248.192,198,254,0.254,198,192,2 
48,224,224,224.0 

28 DATA254,198,192,206.198,206,254,0,198,198.198,2 
54,230.230,230.0 

30 DATA254.48,48,56,56,56,254,0,62,24,24,24,28,220 
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,252.0 

32 DATA198,204,248,240,248,220,206,0,192,192,192,2 
24.224,224,254.0 

34 DATA198.238.254,214,230,230,230.0,230,246,254,2 
54,206,230.230.0 

36 DATA248,216,206,198,198,198,254,0,255,230,230,2 
54,192,224.224,0 

38 DATA254,230,198,198,222.254,14,0,254,198,198,25 
4,248.220.206,0 

40 DATA254,198,192,254,6,198,254,0,254,178.48,48,5 
6,56,56•0 

42 DATA198.198,198,230,230,230,254,0,198,198,230,2 
30,230,124,56.0 

44 DATA198,198,198,214,254,238,198,0,198,198,124,5 
6,124.19B,198.0 

46 DATA198,198,238,124,48,48,48,0,255,198,12,24,48 
,230,254,0 

48 DATAO,127,127,127,0,247,247,247 
50 DATA36,129,24,24,60.126,126,60 
52 DATA24,60,126,255,126,110,110,106 

READY. 

The important lines are those from line 2 to line 18, which tell the 
64 to get its character data from our new data (lines 22-52) rather 
than its existing set stored in ROM. 

In this example room is set aside at the top of memory to store the 
character data, although you may wish to change the exact loca¬ 
tion of the top of memory in order to give yourself a larger or smaller 
amount of room to play with. To do this, you'll need to alter the 
values POKEd into memory locations 52 and 56 in line 3. Location 
52 controls the amount of room we've got in which to store strings, 
and location 56 alters the top of Basic memory itself. In the exam¬ 
ple given the top of Basic is moved to hexadecimal location $4800, 
or decimal 18432. You may wish to move this higher up in order 
to give yourself more room for the adventure game itself. 


This program only alters the existing alphabetic characters, and in 
order to go a little bit further than that and make up some really 
exotic displays you may care to alter the entire graphical, numeric 
and alphabetic character set of the 64. The following program leads 
the way. 

130 POKE 53280.9:POKE 53281.7 

140 PRINT"CCLR.BUO * CHARACTER DESIGNER * 

":PRINT" 1 3CD3PLEASE HANG ON!" 

150 POKE 828,0 
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160 RUN 170 
170 CS=12288 

175 POKE 56334,PEEK(56334)AND254sPOKE 1,PEEK<1)AND 
251 

180 FOR I=CS TO CS+2047 

185 PRINT"CHQME3"sI 

190 POKE I,PEEK<53248+I-CS) 

200 NEXT I 

205 POKE 1,PEEK<1)0R4sPOKE 56334,PEEK(56334)OR1 
210 PRINT"CCLR35 RUN 280" 

220 PRINT"RUN" 

230 POKE 198,3 
240 POKE 631,19 
250 POKE 632,13 
260 POKE 633,13 
270 END 

280 S=1024 s CL=40 
290 CSs12288 

300 CR=0 s LN=30000+PEEK <828) 

310 P=24:BG=1s BR=1 

320 POKE 53280,9sPOKE 53281,7 

330 DEFFNA <XX)=S+R*2*CL+2*Cs REM SCREEN POKE LOCATI 
ON 

340 DEFFNB(XX)=8*R+C s REM SCREEN POKE VALUE FOR CHA 
R 

350 GOTO 1000 

360 PRINT"CCLR,YEL 3"s GOSUB 1200 
370 PRINT"C HOME 3"s s FOR 1=0 TO 7 

380 PRINT"."SPRINT 

390 NEXT Is F=0 

400 PRINT"CHOME3"s R=OsC=0 

410 Z=FNA(0) 

420 IF F=0 THEN 460 

430 IF Z=ZL THEN 450 

440 POKE ZL,ILs ZL=ZsIL=PEEK <ZL) 

450 POKE Z+54272,1 

460 POKE Z+54272,1 

470 GET A$sIF A$="" THEN 470 

480 POKE Z+54272,0 

490 REM 

500 REM CURSOR CONTROL OPTIONS 
505 REM 

510 IF A$="Q" THEN 1500 

520 IF A*="CCR3" AND C=7 THEN C=OsGOTQ 410 
530 IF A$="CCR3" THEN C=C+lsGOTO 410 
540 IF A$="CCL3" AND C-0 THEN C*7sG0T0 410 
550 IF A$="CCL3" THEN C=C-lsG0T0 410 
560 IF A$="CCD3" AND R=7 THEN R=0sG0T0 410 
570 IF A$="CCD3" THEN R=R+lsG0T0 410 
580 IF A$="CCU3" AND R=0 THEN R=7sG0T0 410 
590 IF A$="CCU3" THEN R=R-lsG0T0 410 
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600 IF A$*"CHQME3" THEN 400 
610 IF F-l THEN 800 
695 REM 

700 REM DEFINE NEW CHARACTER OPTIONS 
705 REM 

710 IF A*="+" THEN POKE Z,81;GOTO 410 

712 IF A$="M" THEN 2400 

714 IF A*="I" THEN 2500 

716 IF A*="T" THEN 2600 

720 IF A$=THEN POKE Z,46;GOTO 410 

730 IF A*="=" THEN 1600 

740 IF A$="CCLR3" THEN 370 

750 IF A$="R" THEN 1000 

760 IF A$="B" THEN 2000 

770 GOTO 410 

795 REM 

800 REM REVIEW CHARACTER SET OPTIONS 

805 REM 

810 CR=FNB(0) 

820 IF A$="N" THEN POKE 53272,21;GOTO 360 
830 IF A$="E" THEN POKE 53272.21;F=0;GOTO 1800 
840 GOTO 410 
995 REM 

1000 REM DISPLAY CHARACTER SET OPTIONS 
1005 REM 

1010 POKE 53272,(PEEK(53272)AND240)+12;R=4;C=0 
1020 ZL=FNA(0);IL=32 
1030 F=l;PRINT"CCLR3"; 

1040 PRINT"CBLK3® A B C D E F G";PRINT 

1050 PRINT"H I J K L M N 0";PRINT 

1060 PRINT"P Q R S T U V W";PRINT 

1070 PRINT"X Y Z C \ 3 A ";PRINT 

1080 PRINT" ! "CHR*<34>" « $ 7 . & '";PRINT 

1090 PRINT"( >*+,-. /":PRINT 

1100 PRINT"0 123456 7"SPRINT 

1110 PRINT"8 9 ; ; < = > ?";PRINT 

1120 PRINT"CH0ME3"SPC(22)"OPTIONS";PRINT 

1130 PRINTSPC<22)"CRVS3NCOFF3 NEW CHAR":PRINT 

1140 PRINTSPC<22)"CRVS3ECOFF3 EDIT CHAR":PRINT 

1150 PRINTSPC(22)"CRVS3QCOFF3 QUIT" 

1160 BC=PEEK(55296) 

1170 GOTO 410 
1195 REM 

1200 REM EDIT OPTIONS 
1205 REM 

1210 PRINT"CHOME.BLKD"SPC(25)"CRVS 1 OPTIONSCOFF 1 " 
RINT 

1220 PRINT 

1230 PRINTSPC(P)"CRVS3+EOFF3ADD DOT" 

1240 PRINTSPC(P)"CRVS3—C0FF3 ERASE" 

1250 PRINTSPC(P)"CRVS3=COFF3 UPDATE" 


1260 PRINTSPC(P)"CRVS3REOFF3 REVIEW*' 

1270 PRINTSPC(P)"CRVS3QCQFF3 QUIT" 

1272 PRINTSPC(P)"CRVS3MCOFF3 MIRROR CHAR" 

1274 PRINTSPC(P)"CRVS3ICQFF3 INVERT CHAR 
1276 PRINTSPC(P)"CRVS3TCQFF3 TURN CHAR 
1280 PRINTSPC(P)"CRVS3BCOFF3 ADD DATA" 

1290 PRINTSPC< P+2)"STATEMENT" 

1300 RETURN 
1495 REM 
1500 REM QUIT 
1505 REM 
1510 REM 

1520 POKE 53272,21 

1530 POKE 53281*6:POKE 53280,14 

1540 PRINT"CCLR,2CD3PLEASE BE CAREFUL: UDGS CONFUS 
E THE 64!" 

1550 END 
1595 REM 
1600 REM UPDATE 
1605 REM 

1610 PRINT"CH0ME3": 

1620 X=CS+8*CR 

1630 FOR R=0 TO 7:SM=0 

1640 FOR C=0 TO 7:D=7-C 

1650 SM=SM-2 /s D* < PEEK (FNA (0) ) =81) 

1660 NEXT C 

1670 POKE X+R.SM 

1680 PRINTSPC(17):SM:PRINT 

1690 NEXT R:R=0:C=0 

1700 GOTO 410 

1795 REM 

1800 REM EDIT CHAR 
1805 REM 

1810 PRINT"CCLR3" 

1820 X=CS+8*CR 

1830 FOR R=0 TO 7:Y=PEEK(X+R) 

1840 FOR C=0 TO 7:Z=FNA(0) 

1850 Q=46:Y=Y*2 

1860 IF Y>255 THEN Q=Bl:Y=Y-256 

1870 POKE Z, Q:POKE Z+54272,0 

1880 NEXT C,R 

1890 R=0:C=0 

1900 GOSUB 1200 

1910 GOTO 410 

1995 REM 

2000 REM ADD DATA STATEMENTS 

2005 REM 

2010 X=CS+8*CR 

2020 PRINT"CCLR.8CD3" 

2030 PRINTLN:"DATA"s 

2040 PRINTRIGHT$<STR*<X>,LEN<STR^(X))-1); 
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2050 FOR I=X TO X+7 
2060 PRINT","! 

2070 PRINTRIBHTS<STR$(PEEK <I)),LEN <STR$(PEEK(I))) - 
l)i 

2080 NEXT I 

2090 PRINT:PRINT"RUN CHOMEI" 

2100 POKE 828,PEEK<828)+1 
2110 POKE 198,9 
2120 FOR 1=0 TO 8 
2130 POKE 1+631,13 
2140 NEXT I 
2160 END 

2200 FORI=0T07s FORJ=0T07 

2202 A7.<I, J) =0:1FPEEK<S+1*80+J#2) =81THENA7.(I, J) =1 
2204 NEXTJ,I 
2206 RETURN 

2300 FORI=0T07iFORJ=0T07 

2302 IFAX<I,J)=1THENPOKES+1*80+2*J.81s G0T02306 

2304 POKES+I*80+2*J,46 

2306 NEXTJ,I 

2308 RETURN 

2400 G0SUB2200 

2402 FORI=0T07:FORJ=7T00STEP-1 

2404 IFAX(I,J)=1THENPOKES+I*80+(7-J)*2.81:60T02408 

2406 POKES+I*80+(7—J)*2,46 

2408 NEXTJ,I:G0T0410 

2500 G0SUB2200 

2502 FORI=0T07:FORJ =0T07 

2504 IFAX(I.J)=OTHENAX(I,J)=1:G0T02508 

2506 AX <I.J)=0 

2508 NEXTJ,I 

2510 G0SUB2300:G0T0410 

2600 G0SUB2200 

2602 FORI=0T07:FORJ =0T07 

2604 IFPEEK<S+1*80+J*2)=81THENAX(7-J,7-I)=lsG0T026 
08 

2606 AX(7-J,7-I)=0 
2608 NEXTJ.I 

2610 FORI=0T07iFORJ=7T00STEP-1 

2612 IFAX <I.J)=1THENPOKES+1*80+ < 7-J)*2.81iG0T02616 
2614 POKES+I*80+(7-J)*2,46 
2616 NEXTJ.I:G0T0410 

READY. 

Although this program doesn't alter the top of memory, it does store 
the data for the character set only about 10K above the start of Basic, 
and so you may wish to move this if you want to use your Own 
characters in an adventure game. 
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Lines 175 and 205 are the ones to alter, with location 56334 being 
the villain of the piece. 

The rest of the program is fairly straightforward. A visual display 
of the characters that you can alter is shown on the screen, and 
by moving the 'cursor' around with the normal cursor control keys 
you can select which character you wish to change. Then, in lines 
1200-1300 you are presented with a list of available options of things 
to do to the character selected. 

Adding and erasing dots are obvious enough when you run the pro¬ 
gram, updating a character gives you the collection of data values 
which go to make up that character image, reviewing the situation 
takes you back to the main menu, while quit and add data should 
be easy enough to understand. Mirror, invert and turn a character 
respectively give you a mirror image of the character, turn off all 
the dots that go to make a character and vice versa, and turn the 
character through ninety degrees at a time. 

Those last three are most useful when it comes to designing graphical 
characters, because they give you the opportunity to see what those 
characters look like under a variety of different circumstances. 

When you've finished with the program all you'll need are the data 
statements for each individual character, and the opening lines which 
place those statements into memory and tell the 64 to get its new 
information from there and not from ROM. 

If you can work out a way of getting rid of those lines without the 
user of your adventure knowing what is happening, you will then 
have a large amount of memory left for your game and, at the same 
time, a completely new character set to play with. Thus you can 
not only print out your room descriptions in, say, gothic text, but 
you can also use the other characters to produce some interesting 
and exciting room displays. 

This has many advantages over using the existing character set, not 
least of which being that it makes your adventures look different 
from everyone else's! 


Sprites 

On the other hand, you could resort to using sprites to produce some 
sort of animation in your game. If you're writing a western adven- 
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ture and someone types in the command: 

DRAW GUN 

wouldn't it be nice to have a spritely gun being drawn on to the 
screen before the program responds to the actual request from the 
player? Sprites are ideal for this sort of thing, and since multi-colour 
sprites are much more versatile than ordinary two-colour ones, the 
following program allows you to design and save your own multi¬ 
colour sprite displays. 

10 REM MULTI-COLOUR SPRITE SENERATOR 

29 REM 

30 REM IF ANY SPRITE DATA.SET UP SPRITE 
32 POKE 53272.21 

40 POKE 828.0 

45 V s >53248: N0= 13: SP= 13: POKE V+21,0 

50 READ FF 

60 IF FF>OTHEN 804 

69 REM 

70 REM NO MORE SPRITE DATA 

71 REM 

80 P0KE53281,0:P0KE53280,0:PRINT"CYEL3 

85 BOSUB 3000 

90 DEFFNA(Z Z)=1065+R*40+C 

110 XL»0:YL“1:XG-16:SE=21:XY-23:XX-29 

120 SC=39:PRINT"CCLR3" 

130 POKE 2040,13:POKE V+SE,1:P0KE V+XY.O 
140 POKE V+XX,0:POKE V+XL,255:POKE V+YL.190 
150 POKE V+XG.O 
160 X=255:Y=190 
165 POKE V+28,1 

169 REM 

170 REM SET UP DISPLAY 

171 REM 

172 F0RI=0T07:AX(I)=2 A I:NEXT 

180 PRINT"!HOME,YEL,SP,24CBMP3" 

181 FQRI=0T020 

182 PRINT"C CBMN,24SP.CBMH 3" 

183 NEXTI:PRINT"ESP,24CBMYI" 

184 G0SUB1000 

185 L0C=64*N0:PRINT"CH0ME3" 

190 FORI=L0CT0L0C+62STEP3:PRINT"C CR 3": 

195 C*= C BLK,WHT,RED,CYN,PUR,GRN,BLU.YEL,ORN 

G,BRN,PINK,GRY1,GRY2.LGRN3 

196 C4»C*+"CLBLU,GRY33" 

200 F0RJ=0T02 

210 ZZ=PEEK<I+J) 

220 F0RK=7T00STEP-1 

230 A=>INT((ZZANDAX(K)) /AX(K) ) 
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240 B$=B$+STR$(A)aC=C+1 

250 IFC=2THENC=0 sIFV AL(B$)>0THENG0SUB291s G0T0260 

255 IFC=0THENB$=""a PRINT"C YEL 3.. M aa 

260 NEXTK 

270 NEXTJ 

260 PRINT 

290 NEXTIs G0T0300 

291 IFB$=" 0 1"THENPRINTMID$<C$,A2+1,1>"CRVS,2SP,0 
FF 3 " a s G0T0294 

292 IFB$= M 1 1"THENPRINTMID$(C$,A3+1,1) " C RVS,2SP,0 
FF3 11 5 s G0T0294 

293 IFB$= M 1 0"THENPRINTMID$<C$,A4+1,1>"CRVS,2SP,0 
FF3 " s 

294 B$= M,, a RETURN 
300 G0SUB1000 

309 REM 

310 REM SPRITE SET UP ON THE SCREEN 

320 REM INPUT CHANGES 

321 REM 
330 R=0sC«0 
340 Z=FNA <0) 

342 PC=PEEK<Z)sPD=PEEK(Z+l)8PK=Z 

343 IFPC=160THENRV=12S a G0TD345 

344 RV=0 

345 POKE Z,24+RVa POKE Z+1,24+RV 

346 KN=PEEK <Z+54272)s KM=PEEK(Z+54273)aIFKN»OTHENKN 
=1:KM=1 

350 POKEZ+54272,KN:POKE Z+54273,KM 
360 GETA$a IFA$=""THEN360 

370 POKEZ+54272,KNa POKE Z+54273,KMaPOKEPK,PCaPOKEP 
K+l,PD 

380 IFA$="Q"THEN1600 

390 IFA$="CCR3 n ANDC=22THEN C=0:GQT0340 

400 IFA$="C CR 3"THENC*C+2 a G0T0340 

410 IFA$="C CL 3"ANDC=0THENC=22 a G0T0340 

420 IFA$="C CL 3"THENC=C-2 a G0T0340 

430 IFA$="C CD 3“ANDR=20THENR=0a G0T0340 

440 I FA$= " C CD 3 " THENR=»R+1 a G0T0340 

450 IFA$="C CU 3"ANDR=0THENR=20a G0T0340 

460 IF A$=" C CU 3"THENR=R-1 a G0T0340 

470 IFA*=“C HOME 3"THENR=0a C=0 a G0T0340 

480 IFA$="C CLR 3"THENGOSUB1150a G0T0340 

490 IFA$="+"THEN580 

500 IFA$="—"THEN730 

510 IFA$= H M n THEN1210 

520 IFA$="B"THEN1450 

530 IFA$="C" THEN 1400 

540 IFA$="E"THEN900 

570 GOTO 340 

574 REM 

575 REM ADD POINT 
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576 REM 
580 Z=FNA <0) 

590 IFCS=A2THENK1=224s K2=160 
595 IFCS=A4THENK1=160:K2=224 
600 IFCS=A3THENK1=160:K2=160 

610 POKEZ, K1:POKE Z+l,K2:P0KE55296+Z-1024,CS:P0KE 
55296+Z-1023,CS 

620 BYTE=INT(C/8)+R*3:60SUB625:G0T0340 

625 CH=1065+40*R+8*INT(C/8)s TC=0:BI=8 

626 F0RLl=CHT0CH+7sP=PEEK(Ll):BI=BI-1:IFP=160DRP=2 
4THENTC=TC+2 A BI 

627 NEXTL1:P0KEBYTE+N0*64,TCsRETURN 

724 REM 

725 REM DELETE POINT 

726 REM 

730 Z=FNA(0) 

740 Z1=PEEK(Z) 

760 POKE Z <46:POKE Z+l,46:P0KE54272+Z,7:P0KE54273+ 
Z,7 

770 BYTE®INT(C/8)+R*3:60SUB625:60T0340 

804 REM 

805 REM IF ANY DATA. SET SPRITES UP 

806 REM 

808 READ A1.A2 < A3:1FA1=OTHENPOKE V+28,PEEK(V+28)AN 
D255-2~(0):B0T0810 

809 POKE V+28.PEEK(V+28)0R2 / '(O):POKE V+37,A2:P0KE 
V+38.A3 

810 READ A4:P0KE V+39.A4 
815 L0C=SP*64 

820 FOR I=LOC TO LOC+62 
830 READ A:POKE I,A 
840 NEXT I 
850 G0T050 

894 REM 

895 REM INPUT FOR EXPAND 

896 REM 

900 PRINT"CHOME,23CD,10CR3PRESS X OR Y" 

910 SETA*:IFA*< >"X"ANDA*< >"Y"THEN900 
920 IFA*="X"THEN960 

930 IFPEEK(V+XY)=1THENPOKEV+XY,0:G0T09B0 
940 POKEV+XY,1 
950 G0T09B0 

960 IFPEEK(V+XX)=1THENP0KEV+XX,0:G0T0980 
970 POKEV+XX,1 

980 PRINT"CHOME,23CD,10CR,12SP3" 

990 GOTO 340 

994 REM 

995 REM DISPAY CONTROL OPTIONS 

996 REM 

1000 PRINT"C HOME,YEL 3 SPC(27)"CRVS3CONTROLSCOFF3" 
1005 PRINTSPC(26)"SPRITE # 0" 
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1030 PRINTSPC<26>"CRVS3MCQFF30VE SPRITE" 

1040 PRINTSPC (26)"CRVS3 C C OFF 3H ANGE COLOUR" 

1050 PRINTSPC(26)"CRVS3E COFF 3 XPAND" 

1060 PRINTSPC(26)"CRVS3+CQFF3 ADD DOT" 

1070 PRINTSPC<26)"CRVS3-CQFF3 REMOVE DOT" 

1080 PRINTSPC(26)"CRVS3BCOFF3ASIC DATA" 

1090 PRINTSPC(26)"CRVS3QCOFF3UIT" 

1100 PRINTs PRINTSPC(26)"USE CURSOR" 

1110 PRINTSPC(26)"CONTROL TO" 

1120 PRINTSPC(26)"POSITION" 

1130 PRINTSPC(26)"CURSOR." 

1140 RETURN 

1144 REM 

1145 REM CLEAR PRESENT SPRITE 

1146 REM 

1150 FORI=0T062:P0KEN0*64+1,0 s NEXTI 
1160 F0RI=0T020 
1170 F0RJ=1T024 

1180 POKE1064+I*40+J,46:P0KE55336+I*40+J,7 
1190 NEXTJ,I:R=Os C=0 
1200 RETURN 

1204 REM 

1205 REM MOVE SPRITE AROUND SCREEN 

1206 REM 

1210 PRINT"CHOME,23CD3USE CURSOR KEYS/RETURN TO EX 
IT." 

1230 GETA* sIFA$=""THEN1230 

1240 IFA*="CCR3"ANDX<319THENX=X+2 

1250 IFA$=“CCL3"ANDX >1THENX=X-2 

1260 IFA$="C CD 3"ANDY<254THENY=Y+2 

1270 IFA*="C CU 3"ANDY >1THENY=Y-2 

1280 POKE V+YL.Y 

1290 POKE V+X8,INT(X/255) 

1300 POKE V+XL,X-INT(X/255)*255 

1310 IF A$=CHR$(13)THEN1330 

1320 G0TQ1210 

1330 POKE V+XL.255 

1340 POKE V+YL,190 

1350 POKE V+XG.O 

1360 X=255sY=190 

1370 PRINT"CH0ME,23CD,36SP3" 

1390 GOTO 340 

1394 REM 

1395 REM CHANGE SPRITE COLOUR 

1396 REM 

1400 PR I NT" C HOME, 23CD, YEL 3 PRESS 1, 2 OR 3 TO MAKE 
YOUR CHOICE." 

1402 GETCGS sIFCG$=""THEN1402 

1403 IFCG$="1"THENCS=A2:GOTO1420 

1404 IFCG*="2"THENCS=A3:G0T01420 

1405 IFCG*="3"THENCS=A4s G0T01420 
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1406 GOTO 1402 

1420 POKE V+36+VAL<CG$),CS 

1430 PRI NT " C HOME,23CD,37SP,HOME 3"; 

1440 GOTO 340 

1444 REM 

1445 REM CREATE DATA STATEMENTS FOR 

1446 REM PRESENT SPRITE 

1447 REM 

1450 PP=PP+11s PRINT" CCLR, 3CD3 M ; PP+30000? "DATA"s SP; 

",l,"sA2: , \":A3s ** f m s A4? ,,h 

1460 F0RI=0T08 

1470 PR INTPP+1 +30001 ** DATA " 5 

1480 F0RJ»0T06 

1490 BB=PEEK < N0*64+1*7+J) 

1500 BB$sRIGHT*<STR$<BB),LEN<STR$<BB>)-l) 

1510 PRINTBBSs ","5 
1520 NEXT J 
1530 PRINT"CCL3 " 

1540 NEXT I 

1550 PRINTPP+10+30000 5 "DATA -1"s NO=NO+1sSP=SP+1 
1560 PRINT"G0T045C HOME 3 
1570 POKE 198,12 

1580 F0RI=0T0113 P0KE631+1,13:NEXT I 
1590 END 

1600 PRINT"CCLR,2CD3BYE."SEND 

3000 PRINT"CCLR3WULTI-COLOUR SPRITE DESIGNER." 

3002 PRINT"C 2CD 3 YOU CAN DISPLAY UP TO FOUR COLOURS 
PER SPRITE NOW. THESE ARE s=" 

3004 PRINT"C2CD3SPRITE MULTI-COLOUR ONE, 

3006 PRINT"SPRITE MULTI-COLOUR TWO, 

3008 PRINT"ORDINARY SPRITE COLOUR," 

3010 PRINT"AND THE SCREEN COLOUR." 

3012 PRINT"C2CD3THIS LIMITS OUR SPRITE RESOLUTION 

Tfl 19 RV 91 rHARArTPRR " 

3014 PRINTSPRINT"NEVERTHELESS, WITH A LITTLE BIT 0 
F IMAGINATION, SOME STAGGERING "s 

3016 PRINT"RESULTS CANBE ACHIEVED." 

3018 GOSUB 4000 

3020 PRINT"CCLR,YEL3FIRST OF ALL, YOU MUST CHOOSE 
THE COLOURFROM THE USUAL 16. 

3022 PRINT"CHOME,3CD3"TAB(28)CHR^(18)"BLACK - 0" 

3024 PRINTTAB<28>CHR$<18)"WHITE - 1" 

3025 PRINTTAB<2B> CHR$ <18)"RED - 2" 

3026 PRINTTAB<2B)CHR$ <18)"CYAN - 3" 

3027 PRINTTAB<28>CHR$<18)"PURPLE - 4" 

3028 PRINTTAB(28)CHR$ <18)"GREEN - 5" 

3029 PRINTTAB(28)CHR$ <18)"BLUE - 6" 

3030 PRINTTAB(28)CHR$(18)"YELLOW - 7" 

3031 PRINTTAB(28)CHR$(18)"ORANGE - 8" 

3032 PRINTTAB(28)CHR$<18)"BROWN - 9" 

3033 PRINTTAB(28)CHR$(18)"PINK -10" 
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3034 PRINTTAB(28)CHR$<18)"GREY1 -11" 

3035 PRINTTAB(28)CHR$(IB)"GREY2 -12" 

3036 PRINTTAB(28)CHR$(18)"L.BLUE -13" 

3037 PRINTTAB(28)CHR$(18)"L.GRN -14" 

3038 PRINTTAB(28)CHR$(18)"GREY3 -15" 

3040 INPUT "SPRITE MULTI-COLOUR ZERO"8A2:IFA2<00RA 
2 >15THENPRI NT " C 2CU 3"s G0T03040 

3042 INPUT "SPRITE MULTI-COLOUR ONE"5A3:IFA3C00RA3 
>15THENPRINT"C2CU3"s G0T03042 

3044 INPUT "SPRITE ORDINARY COLOUR"?A4sIFA4<00RA4> 
15THENPRINT"C2CU3"s G0T03044 

3045 CS=A4 

3046 GOSUB 4000 

3048 POKE V+37.A2sPOKE V+3B,A3:P0KE V+39.A4 

3050 PRINT"CCLR3MOVE THE CURSOR AROUND THE SCREEN 
WITH THE CURSOR"s 

3051 PRINT" KEYS. DITTO FOR THE SPRITE USING MEN 
U OPTION M. 

3053 PRINT"CCD3WHEN SATISFIED, TURN IT INTO DATA 
STATEMENTS BY USING OPTION B. 

3054 PRINT"THESE ARE LISTED AS LINES 30011-30020." 

3055 PRINT"CCD3THE REST OF THE INSTRUCTIONS ARE 
DISPLAYED ON THE SCREEN." 

3056 PRINT"CCD3APART FROM...! PRESS HOME TO MOVE 
THE CURSOR BACK TO THE TOP LEFT "; 

3057 PRINT", AND CLR/HOME TO ERASE THE SPRIT 

E COMPLETELY." 

3058 PRINT"CCD3ALSO, WHEN CHANGING COLOURS, PRESSI 
NG '1' GIVES YOU MULTI-COLOUR "; 

3059 PRINT"ZERO, '2' GIVES YOU MULTI-COLOUR ONE 
,AND '3' GIVESTHE ORDINARY "5 

3060 PRINT"SPRITE COLOUR." 

3065 GOSUB 4000 

3070 RETURN 

4000 PRINT"C2CD3PRESS 'SPACE' TO CONTINUE" 

4002 GETSPSsIFSP$< >" "THEN4002 
4004 RETURN 

29997 REM 

29998 REM SPRITE DATA STORED FROM HERE 

29999 REM 

30011 DATA 13 ,1, 1 , 9 , 12 

30012 DATA0,2,128.0,2,128.0 

30013 DATA2,128,0.2,128,0,2 

30014 DATA128,10,170,128,8,0.0 

30015 DATA8.0,0,12,0,0,12 

30016 DATA68,0,29,1,0,79,16 

30017 DATA64,31,192,16,7,255,244 

30018 DATA1,255,253,0,127,244,0 

30019 DATA31,208,0,7,64,0,1 

30020 DAT AO,0,0,0,0,0,0 

30021 DATA -1 


READY 


The first part of the program sets up a sprite, if any data statements 
already exist, and then goes on to draw up the grid on which you 
can design and alter your sprites. The instructions are printed up 
via a subroutine starting at line 3000, and the menu options while 
designing sprites are shown in lines 1000 to 1140. 

As you can see from those lines a number of interesting options are 
available, and they should be sufficient for you to produce any kind 
of display that your game might require. Playing an adventure the 
other day, I noticed that both the title page and various parts of the 
program, while featuring no other graphics, were brightened up by 
the inclusion of a number of sprites. This can enhance the 'playability' 
of a game if done well, and certainly wakes you up at three o'clock 
in the morning when you think that you're never going to get 
anywhere with a particular game. 

However, more and more people seem to be resorting to split screens 
and high-resolution graphics to flavour their games, so let's move 
on to a number of routines that will help us out in those particular 
areas. 


Splitting screens 

Sitting in the 64, at memory locations 788 and 789, is something 
called a hardware interrupt vector. If you PEEK those locations you'll 
see that the normal values stored there are 49 and 234 respectively. 
Don't, whatever you do, alter those values without having some 
other code in the machine as well to deal with the alteration. Those 
two locations tell the 64 that roughly fifty times a second it has got 
to jump to an internal ROM routine starting at memory location 234, 
49, or in more understandable hexadecimal terms $EA31 (49 being 
the decimal equivalent of $31 and 234 being the decimal equivalent 
of $EA). 

This routine performs a lot of useful actions that keep the 64 ticking 
over, and any untoward alteration of the contents of locations 788 
and 789 could lead to disaster. However, with a little bit of careful 
thought we can get those locations to do something very useful for 
us. If they are altered to point to another machine-code routine in 
memory (since they are in RAM they're easily altered by a simple 
POKE command), then fifty times a second the 64 will race off to 
that routine. As long as we tell the 64 at the end of the routine that 
it has then got to go to location $EA31 everything will be all right. 


27 



The following short program uses this principle to give us a split 
screen. 

90 POKE 53265,27 
100 F0RJ s 828TQ864s READX 
110 T=T+X s POKEJ•X 
120 NEXTJ 

200 DATA 169,1,141,25*208*162,194,160,0,173,18,208 
,16,4,162,1 

210 DATA 160,7,142,18,208,140,33,208,173,13,220 

220 DATA 41,1,240,3,76,49,234,76,188,254 

300 P0KE56333,127 

310 POKE 788,60sP0KE789,3 

320 P0KE53274,129 

READY. 

As you can see, this is a short Basic loader for a very useful machine- 
code routine. As well as altering a couple of locations controlled by 
the 64's video chip, the program puts a small routine into memory, 
starting at location 828. Line 310 of the program then instructs the 
64 to go to location $0360, or 828 in decimal, before trundling off 
to location $EA31 again. The machine-code listing makes that easier 
to follow: 

B* 

PC SR AC XR YR SP 
.s 77B2 33 00 9A 00 F6 


033C 

A9 

01 


LDA 

#$01 

033E 

8 D 

19 

DO 

STA 

$D019 

0341 

A2 

C2 


LDX 

#$C2 

0343 

AO 

00 


LDY 

#$00 

0345 

AD 

12 

DO 

LDA 

■ DO 12 

0348 

10 

04 


BPL 

$034E 

034A 

A2 

01 


LDX 

#$01 

034C 

AO 

07 


LDY 

#$07 

034E 

8 E 

12 

DO 

STX 

$D012 

0351 

SC 

21 

DO 

STY 

$D021 

0354 

AD 

OD 

DC 

LDA 

$DCOD 

0357 

29 

01 


AND 

#$01 

0359 

FO 

03 


BEQ 

$035E 

035B 

4C 

31 

EA 

JMP 

$EA31 

035E 

4C 

BC 

FE 

JMP 

$FEBC 

0361 

00 



BRK 
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If you type in and run the program, you'll see that the top two-thirds 
of the screen are now black, and the bottom third is in yellow. To 
change those colours, alter the ninth data value (currently a zero) 
and the eighteenth data value (currently a seven). For example, if 
you want red and green instead you'll have to change the zero and 
seven to two and five. 

To alter the point at which the split occurs, alter the seventh data 
value. This determines how far down the screen the dividing line 
will occur. 

In order to make use of this you'll need to be able to put some high- 
resolution graphics at the top of the screen and some normal text 
at the bottom, so the following program is an introduction to pro¬ 
ducing high-resolution graphical displays. 


High resolution 

This is only a start, it isn't the finished product, but it will enable 
you to produce high-resolution displays with a reasonable amount 
of ease. 


1 B=0:T=0 

2 READAsIFA<>-iTHENP0KE49152+B.A:B=B+1:T=T+AsG0T02 

3 PRINTSPRINT"DATA READ IN ..."sIFT<>47642THENPRIN 
TSPRINT"BUT THERE'S AN ERROR SOMEWHERE."sSTOP 

4 PRINTSPRINT"CORRECTLY! WELL DONE." 

10 DATA76.30,192.76.61,192,76 

20 DATA84,192.76,113,192.76,139 
30 DATA192.76.142.192,76,82,193 
40 DATA76,58,193,76,98,193.234 
50 DATA234.234.173,17,208,141,114 
60 DATA193,173,24,208,141,115,193 
70 DATA169.59.141,17.208,169,24 
80 DATA141,24,208.32,61,192,162 
90 DATA16.32.90,192,96.160,0 
100 DATA169,32,132,253.133,254.152 
11O DATA145,253,200,208,251,230.254 
120 DATA165.254.201,64,208.242,96 
130 DATA32,253,174,32.158.183.160 
140 DATAO,169,4,132,253,133,254 
150 DATA138,145,253,200,208.251.230 
160 DATA254,165,254,201.8,208,242 
170 DATA96,160,0,169,32.132.253 
180 DATA133.254,177,253,73.255.145 
190 DATA253,200,208.247,230.254.165 
200 DATA254,201,64,208,239,96,169 
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210 DATAO,44,169,128,133,151,32 
220 DATA253 ,174,32, 235 f 183,224 , 200 
230 DATA176.238.165,21,201.1,144 
240 DATAB,208,230,165,20,201.64 
250 DATA176,224,138,74,74,74.168 
260 DAT A185,33,193,141,117,193,185 
270 DATA8,193.141,118,193.138,41 
280 DATA7,24,109,117,193,141,117 
290 DATA193.165.20.41,248,141.116 
300 DATA193.24.169,0.109.117.193 
310 DATA133.253.169.32,109,118.193 
320 DATA133,254,24,165.253.109.116 
330 DATA193,133,253,165,254.101,21 
340 DAT A133,254,165,20.41,7,73 
350 DATA7.170.169,1,202.48.3 
360 DATA10.208.250.160.0,36.151 
370 DAT A16,5,73,255,49,253,44 
380 DATA17.253,145.253.96.0.0 
390 DATAl,2.3,5,6,7,8 
400 DATA10,ll,12,13.15,16.17 
410 DAT A18,20,21,22.23•25,27 
420 DATA28,29,0,64,128.192.0 
430 DATA64,128.192.0.64,128,192 
440 DATAO,64,128,192,0.64.128 
450 DATA192.0.64.128,192.0.32 
460 DATA253.174,32.212,225.162.0 
470 DATA160.64.169,0,133.253.169 
480 DATA32.133,254,169,253.32.216 
490 DATA255,96.32.253.174,32.212 
500 DATA225.169,97,133.185.169.0 
510 DATA32,213,255,96,173.114.193 
520 DATA141,17.208.173.115.193.141 
530 DATA24•208.32•68.229 
540 DATA96.-1 

READY. 


Or, for those of you who prefer the machine-code approach: 


B* 

PC SR AC XR YR SP 
.s 97FE 30 00 00 00 F6 


cooo 

4C 

IE 

CO 

JMP 

SCO IE 

C003 

4C 

3D 

CO 

JMP 

SC03D 

C006 

4C 

54 

CO 

JMP 

SC054 

C009 

4C 

71 

CO 

JMP 

SC071 

COOC 

4C 

8 B 

CO 

JMP 

SC08B 

COOF 

4C 

8 E 

CO 

JMP 

SC08E 

CO 12 

4C 

52 

Cl 

JMP 

SC 152 

CO 15 

4C 

3A 

Cl 

JMP 

SC13A 


30 



C018 

4C 

62 

Cl 

JMP 

$C162 

C01B 

EA 



NOP 


COIC 

EA 



NOP 


COID 

EA 



NOP 


COIE 

AD 

11 

DO 

LDA 

$D011 

C021 

8 D 

72 

Cl 

STA 

$C172 

C024 

AD 

18 

DO 

LDA 

$D013 

C027 

8 D 

73 

Cl 

STA 

$C173 

C02A 

A9 

3B 


LDA 

#$3B 

C02C 

8 D 

11 

DO 

STA 

$D011 

C02F 

A9 

18 


LDA 

#$18 

C031 

8 D 

18 

DO 

STA 

$D018 

C034 

20 

3D 

CO 

JSR 

$C03D 

C037 

A2 

10 


LDX 

#$10 

C039 

20 

5A 

CO 

JSR 

$C05A 

C03C 

60 



RTS 


C03D 

AO 

00 


LDY 

#$00 

C03F 

A9 

20 


LDA 

#$20 

C041 

84 

FD 


STY 

$FD 

C043 

85 

FE 


STA 

$FE 

C045 

98 



TYA 


C046 

91 

FD 


STA 

<$FD)•Y 

C048 

C8 



INY 


C049 

DO 

FB 


BNE 

$C046 

C04B 

E6 

FE 


INC 

$FE 

C04D 

A5 

FE 


LDA 

$FE 

C04F 

C9 

40 


CMP 

#$40 

C051 

DO 

F2 


BNE 

$C045 

C053 

60 



RTS 


C054 

20 

FD 

AE 

JSR 

$AEFD 

C057 

20 

9E 

B7 

JSR 

$B79E 

C05A 

AO 

00 


LDY 

#$00 

C05C 

A9 

04 


LDA 

#$04 

COSE 

84 

FD 


STY 

$FD 

C060 

85 

FE 


STA 

$FE 

C062 

8 A 



TXA 


C063 

91 

FD 


STA 

<$FD), Y 

C065 

C8 



INY 


C066 

DO 

FB 


BNE 

$C063 

C068 

E6 

FE 


INC 

$FE 

C06A 

A5 

FE 


LDA 

$FE 

C06C 

C9 

08 


CMP 

#$08 

C06E 

DO 

F2 


BNE 

$C062 

C070 

60 



RTS 


C071 

AO 

00 


LDY 

#$00 

C073 

A9 

20 


LDA 

#$20 

C075 

84 

FD 


STY 

$FD 

C077 

85 

FE 


STA 

$FE 

C079 

B1 

FD 


LDA 

($FD), Y 

C07B 

49 

FF 


EOR 

#$FF 

C07D 

91 

FD 


STA 

<$FD),Y 



C07F 

C8 



I NY 


C080 

DO 

F7 


BNE 

♦C079 

C082 

E6 

FE 


INC 

♦FE 

C084 

A5 

FE 


LDA 

♦FE 

C086 

C9 

40 


CMP 

#♦40 

C088 

DO 

EF 


BNE 

♦C079 

C08A 

60 



RTS 


C08B 

A9 

00 


LDA 

#♦00 

C08D 

2C 

A9 

80 

BIT 

♦80A9 

C090 

85 

97 


STA 

♦97 

C092 

20 

FD 

AE 

JSR 

♦AEFD 

C095 

20 

EB 

B7 

JSR 

♦B7EB 

C098 

EO 

CB 


CPX 

#$C8 

C09A 

BO 

EE 


BCS 

♦C08A 

C09C 

A5 

15 


LDA 

♦ 15 

C09E 

C9 

01 


CMP 

#♦01 

COAO 

90 

08 


BCC 

♦COAA 

C0A2 

DO 

E6 


BNE 

♦C08A 

C0A4 

A5 

14 


LDA 

♦ 14 

C0A6 

C9 

40 


CMP 

#♦40 

C0A8 

BO 

EO 


BCS 

♦C08A 

COAA 

8 A 



TXA 


COAB 

4A 



LSR 


COAC 

4A 



LSR 


COAD 

4A 



LSR 


COAE 

A8 



TAY 


COAF 

B9 

21 

Cl 

LDA 

♦C121,Y 

C0B2 

8 D 

75 

Cl 

STA 

♦Cl 75 

C0B5 

B9 

08 

Cl 

LDA 

♦C10B,Y 

C0B8 

8 D 

76 

Cl 

STA 

♦Cl 76 

COBB 

8 A 



TXA 


COBC 

29 

07 


AND 

#♦07 

COBE 

18 



CLC 


COBF 

6 D 

75 

Cl 

ADC 

♦Cl 75 

C0C2 

8 D 

75 

Cl 

STA 

♦Cl 75 

C0C5 

A5 

14 


LDA 

♦ 14 

C0C7 

29 

F8 


AND 

#^F8 

C0C9 

8 D 

74 

Cl 

STA 

♦Cl 74 

COCC 

18 



CLC 


COCD 

A9 

00 


LDA 

#♦00 

COCF 

6 D 

75 

Cl 

ADC 

♦Cl 75 

C0D2 

85 

FD 


STA 

♦FD 

C0D4 

A9 

20 


LDA 

#♦20 

C0D6 

6 D 

76 

Cl 

ADC 

♦Cl 76 

C0D9 

85 

FE 


STA 

♦FE 

CODB 

18 



CLC 


CODC 

A5 

FD 


LDA 

♦FD 

CODE 

6 D 

74 

Cl 

ADC 

♦Cl 74 

COE1 

85 

FD 


STA 

♦FD 

C0E3 

A5 

FE 


LDA 

♦FE 

C0E5 

65 

15 


ADC 

♦ 15 
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C0E7 

85 

FE 

STA 

$FE 

C0E9 

A5 

14 

LDA 

$14 

COEB 

29 

07 

AND 

#$07 

COED 

49 

07 

EOR 

#$07 

COEF 

AA 


TAX 


COFO 

A9 

01 

LDA 

#$01 

C0F2 

CA 


DEX 


C0F3 

30 

03 

BMI 

$C0F8 

C0F5 

OA 


ASL 


C0F6 

DO 

FA 

BNE 

$C0F2 

COFB 

AO 

00 

LDY 

#$00 

COFA 

24 

97 

BIT 

$97 

COFC 

10 

05 

BPL 

$C103 

COFE 

49 

FF 

EOR 

#$FF 

ClOO 

31 

FD 

AND 

($FD),Y 

Cl 02 

2C 

11 FD 

BIT 

$FD11 

C105 

91 

FD 

STA 

<$FD>,Y 

C107 

60 


RTS 


C108 

00 


BRK 


C109 

00 


BRK 


C10A 

01 

02 

ORA 

($02,X) 

C10C 

03 


??? 


C10D 

05 

06 

□RA 

$06 

C10F 

07 


??? 


C110 

08 


RHP 


cm 

OA 


ASL 


Cl 12 

OB 


??? 


Cl 13 

OC 


??? 


Cl 14 

OD 

OF 10 

ORA 

$100F 

Cl 17 

11 

12 

ORA 

($12),Y 

Cl 19 

14 


??? 


Cl 1A 

15 

16 

ORA 

$16, X 

cue 

17 


??? 


CUD 

19 

IB 1C 

ORA 

$1C1B,Y 

C120 

ID 

00 40 

ORA 

$4000,X 

C123 

80 


??? 


C124 

CO 

00 

CPY 

#$00 

C126 

40 


RTI 


C127 

80 


??? 


C128 

CO 

00 

CPY 

#$00 

C12A 

40 


RTI 


C12B 

80 


??? 


C12C 

CO 

00 

CPY 

#$00 

C12E 

40 


RTI 


C12F 

80 


??? 


C130 

CO 

00 

CPY 

#$00 

C132 

40 


RTI 


C133 

80 


??? 


C134 

CO 

00 

CPY 

#$00 

C136 

40 


RTI 


C137 

80 


??? 
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C138 

CO 

00 


CPY 

#$00 

C13A 

20 

FD 

AE 

JSR 

$AEFD 

C13D 

20 

D4 

El 

JSR 

$E1D4 

C140 

A2 

00 


LDX 

#$00 

C142 

AO 

40 


LDY 

#$40 

C144 

A9 

00 


LDA 

#$00 

Cl 46 

85 

FD 


STA 

$FD 

C148 

A9 

20 


LDA 

#$20 

C14A 

85 

FE 


STA 

$FE 

C14C 

A9 

FD 


LDA 

#$FD 

C14E 

20 

D8 

FF 

JSR 

$FFDB 

C151 

60 



RTS 


C152 

20 

FD 

AE 

JSR 

$AEFD 

C155 

20 

D4 

El 

JSR 

$E1D4 

C15B 

A9 

61 


LDA 

#$61 

C15A 

85 

B9 


STA 

$B9 

C15C 

A9 

00 


LDA 

#$00 

C15E 

20 

D5 

FF 

JSR 

$FFD5 

C161 

60 



RTS 


Cl 62 

AD 

72 

Cl 

LDA 

$C172 

C165 

8 D 

11 

DO 

STA 

$D011 

C168 

AD 

73 

Cl 

LDA 

$C173 

C16B 

BD 

18 

DO 

STA 

$D018 

C16E 

20 

44 

E5 

JSR 

$E544 

C171 

60 



RTS 


C172 

00 



BRK 



This adds a number of extra 'commands' to Basic, although all of 
them need to be accessed by SYStem calls rather than by using 
new Basic keywords. 

In order, they produce the following effects: 

SYS49152 initialises the package and sets up a high-resolution 
screen. 

SYS49155 clears a high resolution screen. 

SYS49158,n sets the colour of the screen, with n ranging as usual 
from 0 to 15. 

SYS49161 inverts the graphics screen, so that every dot which was 
on is now off, and vice versa. 

SYS49164,x,y plots a point at the co-ordinates x and y. 
SYS49167,x,y unplots a point at the co-ordinates x and y. 
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SYS49170,"filename",dn loads a previously saved high-resolution 
screen called "filename" from device number dn (1 for tape, 8 for 
disk). 

SYS49173,"filename",dn saves a high-resolution screen to device 
number dn under the filename "filename". 

SYS49176 turns off the high-resolution screen and returns everything 
to normal again. (Well, as normal as you ever get on the 64). 


Points to note 

You may have noticed, if you've flipped through this and some of 
the other chapters in this book, that a large number of the machine- 
code routines that we are discussing start at the same location in 
memory, namely $C000, or decimal 48152. There is a good reason 
for this, since this is the start of the spare 4K in the middle of the 
64's ROM. 

However, if you want to use them all at the same time you're in 
trouble! - well, not really, since most of the routines are completely 
relocatable (in other words, instead of living from locations 
$C000-$C100 they can live from $C200-$C300, or whatever). Just 
remember to alter the SYStem calls accordingly. 

The only trouble with something like this is that you are using a com¬ 
plete 8K of screen. This is all very well if you want to produce displays 
which can be turned on or off by repeated pressing of, say, the CBM 
logo key, so that pressing it once produces the high-resolution screen 
and pressing it again produces the text underneath it, but what about 
if you want to produce windowed displays, i.e., you want the top 
ten lines in high-resolution mode but the bottom fifteen in ordinary 
text mode? 

Ah me, such a demanding lot you are out there. Let's take a look 
at the next listing, which sorts out that particular problem. 


Interrupts 

As we saw with the split screen program, interrupting the 64 can 
produce some interesting and downright useful effects, as the next 
program will illustrate. 



10 SE = 49152 :EE = 49688 

20 : 

30 FORI = SE TO EE : READ A s POKE I . A s NEXT 
40 : 

50000 DATA 076.009,192.076.091.193.076,146.193.120 
.169.127.141.013 

50001 DATA 220,169,001,141.026.208.173,090.193.133 
251 173.142 192 

50002 DATA 141.018,208.169,024.141,017.208.173.020 
.003.141,060.003 

50003 DATA 173.021,003.141,061.003.169,065.141,020 
,003,169.192.141 

50004 DATA 021,003.088,169,016,141.067,003.096.173 
,025,208,141,025 

50005 DATA 208,041,001,240,058,198,251,016,007,173 
,090,193,133.251 

50006 DATA 198,251,166.251.189,192,192,141,032.208 
.189,167,192,141 

50007 DATA 033,208.189.064,193,141.136,002.189.217 
,192,141,017.208 

50008 DATA 189,242,192.141,022,208,189,012,193,141 
■ 024 , 208 y 189.142 

50009 DATA 192,141,0189208,138,240,006,104,168,104 
f 170,104,064.076 

50010 DATA 049.234,001,241,233,225,217,209,201,193 
.185.177,169,161 

50011 DATA 153,145,137.129,121,113.105.097.089.081 
,073,065,057,000 

50012 DATA 000,000.000.000,000,000,000,000,000.000 

. 000 , 000 , 000,000 

50013 DATA 000,000,000,000.000,000,000,000,000.000 

9012,012,012,012 

50014 DATA 012.012,012,012,012,012,012,012,012,012 

, 012 , 012 , 012.012 

50015 DATA 012,012.012.012,012,012,012,027,027,027 
,027,027,027,027 

50016 DATA 027,027,027,027,027,027,027,027,027,027 
,027,027,027,027 

50017 DATA 027,027,027,027,008,008,008.008,008,008 
,008,008,008,008 

50018 DATA 008,008,008,008,008,008,008,008,008,008 
,008,008,008,008 

50019 DATA 008,008,020,020,020,020,020,020,020,020 

, 020 , 020 , 020.020 

50020 DATA 020,020,020,020,020,020,020,020,020,020 
,020,020,020,003 

50021 DATA 003,003,003,003,003,003,003,003,003,003 
,003,003,003,003 

50022 DATA 003,003,003,003,003,003,003,003,003,003 
,003,003,004,004 

50023 DATA 004,004,004,004,004,004,004,004,004,004 
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,004,004,004,004 

50024 DATA 004,004,004,004,004,004,004,004,004,004 
,025,032,015,194 

50025 DATA 165.020,041,015,141,061,003.032,015.194 
,165,020,041,015 

50026 DATA 141,062,003,160,000,173,061,003.153,167 
,192,173,062,003 

50027 DATA 153.192,192,169,027,153,217,192,169,008 
,153,242,192,169 

50028 DATA 020,153,012.193,200,192,025,208,224,096 
,032,015,194,165 

50029 DATA 020,201,025,144,002,169,024,141,066,003 
,169,024,056,237 

50030 DATA 066,003,141,066,003,032,015,194,165,020 
,141,061,003,032 

50031 DATA 015,194,165,020,141,062,003,032.015,194 
,165,020,201,003 

50032 DATA 144.002,169,000,141,063,003,032,015,194 
,165,020,201.002 

50033 DATA 144.002.169,000.141,064,003,032.015.194 
.165,020,141,065 

50034 DATA 003,172.066.003,120,173,061,003.153,167 
,192,173,062,003 

50035 DATA 153,192.192.174.063,003,189,010,194,153 
,217,192,174,064 

50036 DATA 003.189,013,194,153,242,192.173,067.003 
,013,065,003,153 

50037 DATA 012,193.088,096,027.091.059,008.024,032 
,253,174,032,138 

50038 DATA 173.032.247,183.096 

READY. 

Or again, for all you machine-code freaks out there: 

B* 

PC SR AC XR YR SP 
• s 8FEB 33 00 D3 00 F6 


cooo 

4C 

09 

CO 

JMP 

♦C009 

C003 

4C 

5B 

Cl 

JMP 

♦C15B 

C006 

4C 

92 

Cl 

JMP 

♦Cl 92 

C009 

78 



SEI 


COOA 

A9 

7F 


LDA 

#*7F 

COOC 

8 D 

OD 

DC 

STA 

♦DCOD 

COOF 

A9 

01 


LDA 

#♦01 

C011 

8 D 

1A 

DO 

STA 

♦D01A 

C014 

AD 

5A 

Cl 

LDA 

♦C15A 

C017 

85 

FB 


STA 

♦FB 

C019 

AD 

8 E 

CO 

LDA 

♦C08E 

C01C 

8 D 

12 

DO 

STA 

♦DO 12 
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COIF 

A9 

18 


LDA 

#$18 

C021 

8 D 

11 

DO 

STA 

$DOU 

C024 

AD 

14 

03 

LDA 

$0314 

C027 

8 D 

3C 

03 

STA 

$033C 

C02A 

AD 

15 

03 

LDA 

$0315 

C02D 

8 D 

3D 

03 

STA 

$033D 

C030 

A9 

41 


LDA 

#$41 

C032 

8 D 

14 

03 

STA 

$0314 

C035 

A9 

CO 


LDA 

#$C0 

C037 

8 D 

15 

03 

STA 

$0315 

C03A 

58 



CL I 


C03B 

A9 

10 


LDA 

#$10 

C03D 

8 D 

43 

03 

STA 

$0343 

C040 

60 



RTS 


C041 

AD 

19 

DO 

LDA 

$D019 

C044 

8 D 

19 

DO 

STA 

$D019 

C047 

29 

01 


AND 

#$01 

C049 

FO 

3A 


BEQ 

$C085 

C04B 

C6 

FB 


DEC 

$FB 

C04D 

10 

07 


BPL 

$C056 

C04F 

AD 

5A 

Cl 

LDA 

$C15A 

C052 

85 

FB 


STA 

$FB 

C054 

C6 

FB 


DEC 

$FB 

C056 

A6 

FB 


LDX 

$FB 

C058 

BD 

CO 

CO 

LDA 

$COCO„X 

C05B 

8 D 

20 

DO 

STA 

$D020 

COSE 

BD 

A7 

CO 

LDA 

$C0A7,X 

C061 

8 D 

21 

DO 

STA 

$D021 

C064 

BD 

40 

Cl 

LDA 

$C140,X 

C067 

8 D 

88 

02 

STA 

$0288 

C06A 

BD 

D9 

CO 

LDA 

$C0D9,X 

C06D 

8 D 

11 

DO 

STA 

$DOU 

C070 

BD 

F2 

CO 

LDA 

$C0F2 * X 

C073 

8 D 

16 

DO 

STA 

$D016 

C076 

BD 

OC 

Cl 

LDA 

$C10C,X 

C079 

8 D 

18 

DO 

STA 

$D018 

C07C 

BD 

8 E 

CO 

LDA 

$C08E,X 

C07F 

8 D 

12 

DO 

STA 

$D012 

C082 

8 A 



TXA 


C083 

FO 

06 


BEQ 

$C08B 

C085 

68 



PLA 


C086 

A8 



TAY 


C087 

68 



PLA 


C088 

AA 



TAX 


C089 

68 



PLA 


C08A 

40 



RT1 


C08B 

4C 

31 

EA 

JMP 

$EA31 

C08E 

01 

FI 


ORA 

($F1•X) 

C090 

E9 

El 


SBC 

#$E1 

C092 

D9 

D1 

C9 

CMP 

$C9D1,Y 

C095 

Cl 

B9 


CMP 

<$B9,X> 
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C097 

B1 

A9 

C099 

A1 

99 

C09B 

91 

89 

C09D 

81 

79 

C09F 

71 

69 

COA1 

61 

59 

C0A3 

51 

49 

C0A5 

41 

39 

C0A7 

00 


C0A8 

00 


C0A9 

00 


COAA 

00 


COAB 

00 


COAC 

00 


COAD 

00 


COAE 

00 


COAF 

00 


COBO 

00 


COB1 

00 


C0B2 

00 


C0B3 

00 


C0B4 

00 


C0B5 

00 


C0B6 

00 


C0B7 

00 


C0B8 

00 


C0B9 

00 


COBA 

00 


COBB 

00 


COBC 

00 


COBD 

00 


COBE 

00 


COBF 

00 


COCO 

oc 


COC1 

oc 


C0C2 

oc 


C0C3 

oc 


C0C4 

oc 


C0C5 

oc 


C0C6 

oc 


C0C7 

oc 


C0C8 

oc 


C0C9 

oc 


COCA 

oc 


COCB 

oc 


COCC 

oc 


COCD 

oc 


COCE 

oc 


COCF 

oc 


CODO 

oc 


COD1 

oc 



LDA <$A9),Y 
LDA <$99,X) 
STA ($89),Y 
STA ($79,X) 
ADC ($69),Y 
ADC ($59,X) 
EOR <$49>,Y 
EOR <$39,X) 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
??? 

??? 

??? 

??? 

??? 

??? 

??? 

??? 

??? 

??? 

??? 

??? 

??? 

??? 

??? 

??? 

??? 

??? 



C0D2 OC 
C0D3 OC 
C0D4 OC 
C0D5 OC 
C0D6 OC 
C0D7 OC 
C0D8 OC 
C0D9 IB 
CODA IB 
CODB IB 
CODC IB 
CODD IB 
CODE IB 
CODF IB 
COEO IB 
COE1 IB 
C0E2 IB 
C0E3 IB 
C0E4 IB 
C0E5 IB 
C0E6 IB 
C0E7 IB 
C0E8 IB 
C0E9 IB 
COEA IB 
COEB IB 
COEC IB 
COED IB 
COEE IB 
COEF IB 
COFO IB 
COF1 IB 
C0F2 08 
C0F3 08 
C0F4 08 
C0F5 08 
C0F6 08 
C0F7 08 
C0F8 08 
C0F9 08 
COFA 08 
COFB 08 
COFC 08 
COFD 08 
COFE 08 
COFF 08 
C100 08 
C101 08 
C102 08 
Cl03 08 
C104 08 


??? 

??? 

??? 

??? 

??? 

777 

77? 

77? 

77? 

77? 

77? 

77? 

77 ? 

77 ? 

77 ? 

??? 

77? 

77? 

77? 

77? 

77? 

77? 

77? 

77? 

77? 

77? 

77? 

77? 

77? 

77? 

77? 

77? 

PHP 

PHP 

PHP 

PHP 

PHP 

PHP 

PHP 

PHP 

PHP 

PHP 

PHP 

PHP 

PHP 

PHP 

PHP 

PHP 

PHP 

PHP 

PHP 
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Cl 05 

08 

RHP 

C106 

08 

PHP 

C107 

08 

PHP 

C108 

08 

PHP 

Cl 09 

08 

PHP 

C10A 

08 

PHP 

C10B 

08 

PHP 

C10C 

14 

??? 

C10D 

14 

??? 

C10E 

14 

??? 

C10F 

14 

??? 

CUO 

14 

??? 

cm 

14 

??? 

Cl 12 

14 

??? 

Cl 13 

14 

??? 

Cl 14 

14 

??? 

Cl 15 

14 

??? 

Cl 16 

14 

??? 

Cl 17 

14 

??? 

Cl 18 

14 

??? 

Cl 19 

14 

??? 

Cl 1A 

14 

??? 

CUB 

14 

??? 

C11C 

14 

??? 

CUD 

14 

??? 

CUE 

14 

??? 

C11F 

14 

??? 

Cl 20 

14 

??? 

C121 

14 

??? 

Cl 22 

14 

??? 

Cl 23 

14 

??? 

Cl 24 

14 

??? 

Cl 25 

03 

??? 

Cl 26 

03 

??? 

Cl 27 

03 

??? 

C12B 

03 

??? 

Cl 29 

03 

??? 

C12A 

03 

??? 

C12B 

03 

??? 

C12C 

03 

??? 

C12D 

03 

??? 

C12E 

03 

??? 

C12F 

03 

??? 

C130 

03 

??? 

C131 

03 

??? 

C132 

03 

??? 

Cl 33 

03 

??? 

C134 

03 

??? 

Cl 35 

03 

??? 


C136 03 


??? 


Cl37 03 ??? 
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C13B 

03 



??? 


C139 

03 



??? 


C13A 

03 



??? 


C13B 

03 



??? 


C13C 

03 



??? 


C13D 

03 



??? 


C13E 

03 



??? 


C13F 

03 



??? 


C140 

04 



??? 


C141 

04 



??? 


C142 

04 



??? 


Cl 43 

04 



??? 


Cl 44 

04 



??? 


Cl 45 

04 



??? 


Cl 46 

04 



??? 


Cl 47 

04 



??? 


C148 

04 



??? 


C149 

04 



??? 


C14A 

04 



??? 


C14B 

04 



??? 


C14C 

04 



??? 


C14D 

04 



??? 


C14E 

04 



??? 


C14F 

04 



??? 


C150 

04 



??? 


C151 

04 



??? 


C152 

04 



??? 


C153 

04 



??? 


C154 

04 



??? 


C155 

04 



??? 


C156 

04 



??? 


Cl 57 

04 



??? 


Cl 58 

04 



??? 


Cl 59 

04 



??? 


C15A 

19 

20 

OF 

ORA 

$0F20-Y 

C15D 

C2 



??? 


C15E 

A5 

14 


LDA 

$14 

C160 

29 

OF 


AND 

#$0F 

Cl 62 

8D 

30 

03 

STA 

$033D 

Cl 65 

20 

OF 

C2 

JSR 

$C20F 

C168 

A5 

14 


LDA 

$14 

C16A 

29 

OF 


AND 

#$0F 

C16C 

8D 

3E 

03 

STA 

$033E 

C16F 

AO 

00 


LDY 

#$00 

C171 

AO 

30 

03 

LDA 

$033D 

C174 

99 

A7 

CO 

STA 

$C0A7,Y 

C177 

AD 

3E 

03 

LDA 

$033E 

C17A 

99 

CO 

CO 

STA 

$COCO,Y 

C17D 

A9 

IB 


LDA 

#$1B 

C17F 

99 

D9 

CO 

STA 

$C0D9,Y 

C182 

A9 

08 


LDA 

#$08 


42 



Cl 84 

99 

F2 

CO 

STA 

$C0F2,Y 

C187 

A9 

14 


LDA 

#$14 

C189 

99 

OC 

Cl 

STA 

$C10C,Y 

C18C 

C8 



I NY 


C18D 

CO 

19 


CPY 

#$19 

C18F 

DO 

EO 


BNE 

$C171 

C191 

60 



RTS 


C192 

20 

OF 

C2 

JSR 

$C20F 

Cl 95 

A5 

14 


LDA 

$14 

Cl 97 

C9 

19 


CMP 

#$19 

Cl 99 

90 

02 


BCC 

$C19D 

C19B 

A9 

18 


LDA 

#$18 

C19D 

8 D 

42 

03 

STA 

$0342 

Cl AO 

A9 

18 


LDA 

#$18 

C1A2 

38 



SEC 


Cl A3 

ED 

42 

03 

SBC 

$0342 

C1A6 

8 D 

42 

03 

STA 

$0342 

C1A9 

20 

OF 

C2 

JSR 

$C20F 

Cl AC 

A5 

14 


LDA 

$14 

C1AE 

8 D 

3D 

03 

STA 

$033D 

C1B1 

20 

OF 

C2 

JSR 

$C20F 

C1B4 

A5 

14 


LDA 

$14 

C1B6 

8 D 

3E 

03 

STA 

$033E 

C1B9 

20 

OF 

C2 

JSR 

$C20F 

C1BC 

A5 

14 


LDA 

$14 

C1BE 

C9 

03 


CMP 

#$03 

C1CO 

90 

02 


BCC 

$C1C4 

C1C2 

A9 

00 


LDA 

#$00 

C1C4 

8 D 

3F 

03 

STA 

$033F 

C1C7 

20 

OF 

C2 

JSR 

$C20F 

C1CA 

A5 

14 


LDA 

$14 

C1CC 

C9 

02 


CMP 

#$02 

C1CE 

90 

02 


BCC 

$C1D2 

C1DO 

A9 

00 


LDA 

#$00 

C1D2 

8 D 

40 

03 

STA 

$0340 

C1D5 

20 

OF 

C2 

JSR 

$C20F 

C1D8 

A5 

14 


LDA 

$14 

C1DA 

8 D 

41 

03 

STA 

$0341 

C1DD 

AC 

42 

03 

LDY 

$0342 

C1EO 

78 



SEI 


C1E1 

AD 

3D 

03 

LDA 

$033D 

C1E4 

99 

A7 

CO 

STA 

$C0A7,Y 

C1E7 

AD 

3E 

03 

LDA 

$033E 

C1EA 

99 

CO 

CO 

STA 

$COCO,Y 

C1ED 

AE 

3F 

03 

LDX 

$033F 

C1FO 

BD 

OA 

C2 

LDA 

$C20A,X 

C1F3 

99 

D9 

CO 

STA 

$C0D9,Y 

C1F6 

AE 

40 

03 

LDX 

$0340 

C1F9 

BD 

OD 

C2 

LDA 

$C20D,X 

C1FC 

99 

F2 

CO 

STA 

$C0F2<Y 

C1FF 

AD 

43 

03 

LDA 

$0343 



C202 

OD 

41 

03 

C205 

99 

OC 

Cl 

C208 

58 



C209 

60 



C20A 

IB 



C20B 

5B 



C20C 

3B 



C20D 

08 



C20E 

18 



C20F 

20 

FD 

AE 

C212 

20 

8 A 

AD 

C215 

20 

F7 

B7 

C218 

60 



C219 

FF 




ORA $0341 

STA $C10C,Y 

CL I 

RTS 

??? 

??? 

??? 

PHP 

JSR ,AEFD 
JSR $AD8A 
JSR *B7F7 
RTS 

??? 


So, what does this little lot do? 

With this program residing in memory we can, on a very Basic level, 
switch on what are termed 'raster interrupts', and change the col¬ 
our of the screen and the border. 

To switch on the interrupts, we need to: 

SYS 49152 

and to alter the screen and border colours we have to: 

SYS 49155,sc,bc 

where sc and be represent the screen and border colours respec¬ 
tively, each ranging from 0 to 15 as usual. 

Nothing very special so far, but by turning on the raster interrupts 
we can now alter every individual line on the screen. In other words, 
each of the 25 lines on the screen can be in any particular mode 
that takes our fancy. Turning on raster interrupts is just a fancy way 
of saying that we have now altered that part of the 64 which checks 
to see what each particular part of the screen is doing, be it display¬ 
ing normal characters, lower-case characters, extended background 
colour mode characters, multi-colour characters or high-resolution 
characters. 

This, as you might imagine, gives us the very powerful ability to pro¬ 
duce just about anything we like on the screen of the 64, wherever 
we like and whenever we like. Naturally enough, using high- 
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resolution mode means that we have to set some memory aside for 
the high-resolution display, but how much memory is to be set aside 
now depends on how much of the screen we want to be in each 
particular mode. 

Let's take a look at the options available to us. 


Using the package 

Apart from the two simple SYS commands given earlier, there is 
also a third catered for by this routine. This gives us the power to 
alter selectively any line of the screen display. 

SYS 49158,ln,sc,bc,a,b,c 

where these parameters can take the following values: 

In: line number, which can lie in the range 0 to 24. 

sc: screen colour, which can lie in the range 0 to 15, and takes the 
usual colour values. 

be: border colour, which can lie in the range 0 to 15, and takes the 
usual colour values. 

a: this controls the first screen display register, and can take values 
in the range 0 to 2, where: 

a = 0: gives normal colour mode. 
a = 1: gives extended background colour mode, 
a = 2: gives high-resolution mode. 

b: this controls the second screen display register, and has the value 
of 0 or 1. 

b = 0: as with a, this gives normal colour mode, 
b = 1: gives multi-colour mode. 

c: this controls the character memory, and determines where 
character and high-resolution memory areas are to be stored, 
c = 2: character area starts at 2048, high-resolution area starts 
at 2048. 

c = 4: character area starts at 4096, high-resolution area starts 
at 4096. 

c = 6: character area starts at 6144, high-resolution area starts 
at 6144. 
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c = 8: character area starts at 8192, high-resolution area starts 
at 8192. 

c = 10: character area starts at 10240, high-resolution area is 
unavailable. 

c = 12: character area starts at 12288, high-resolution area is 
unavailable. 

c= 14: character area starts at 14336, high-resolution area is 
unavailable. 

Note that when c = 6 the character area is the normal upper-case 
character set, and when c = 8 the character area is the normal lower¬ 
case character set. 

So how does this work in practice? 

Well, an example is always the best way, so having got the pro¬ 
gram typed in correctly, issue the following series of commands: 

SYS 49155,7,9 

SYS 49152 

FOR I = 0TO7: S YS49158, l,7,9,2,0,8: N EXT 

and you should see a high-resolution area appearing at the top of 
the screen. To clear this area, you'll need to type in something like 
this: 

FORI = 8192TO10752:POKEI,0:NEXT 

This is because our high-resolution screen now starts at memory 
location 8192, and we are affecting 8 times 320 positions on the 
screen. 8 times 320 is 2560, and 2560 plus 8192 is equal to 10752. 

To give some colour to the display, we now need to type in: 

FORI = 1024TO1344:POKEI,5:NEXT 

This is because the screen memory starts at location 1024, and we 
are looking at 8 rows of the screen. Finally, to put something on 
to this high-resolution screen, the following will produce a series of 
high-resolution lines: 

FORI = 8192TO10752:POKEI,255:NEXT 
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Quite what you display on your high-resolution screen is up to you, 
but I hope the above will give you some idea of what this powerful 
program can do. 

Many thanks to Allen Webb for a lot of the information contained 
in this last section. 


Saving memory 

Having gone to the trouble of designing some high-resolution screen 
displays, it would be rather handy to save them to tape or disk. The 
following program, which resides in memory from locations 679 to 
722, does the trick. The instructions, starting at line 10000, explain 
how to operate it. 

1 60SUB10000 

3 P0KE532B1,0:P0KE532B0,9sP0KE646,2:PRINT"CCLR,YEL 

3 

4 PRINTTAB < 11) 11 CRVS3 SAVER 64 

5 DATA169,54,133,1 

10 DATA169,8,162,8,160,255,32,186,255 

20 DATA169,2,162,211,160,2,32,189,255 

30 DATA169,1,133,247,169,8,133,248,162,255,160,127 

,169,247,32,216,255 

35 DATA169,55,133,1,96 

40 F0RI=679T0722sREADAs POKEI,As NEXT 

50 N$="":DEV»l8S»2049sE®32767 

60 INPUT"CCD3FILE NAME "sN*8N*»LEFT*<N*.16) 

62 IFN$=""THEN60 

70 INPUT"DEVICE (T/D) ";DEV$ 

71 IFDEV$«"T"THENDEV=18 G0T080 

72 IFDEV$="D"THENDEV-8:80T080 
74 60T070 

80 S=49152 
90 E»53247 

100 K»S:608UB1000s P0KE702,A1 aP0KE706,A2 
110 K=E8 GOSUB1000 8 P0KE710,A1sP0KE712,A2 
120 SA=255sP0KE68B,SA 
130 K=LEN<N*>sP0KE693,K 
140 F0RI»1T0K 

150 P0KE722+I,ASC(MID* <N$,1,1))a NEXT 

155 PQKE684,DEV 8 P0KE686,DEV 

156 PRINT" CCD3LOAD IN MACHINE CODE 8c" 

160 PRINT"TYPE 'SYS 679' TO SAVE" 

170 END 

1000 A2=INT(K/256)a A1=K-A2*2568RETURN 

10000 P0KE53280,9sP0KE53281,7sPRINT"CCLR,BLK3MACHI 

NE CODE SAVER." 
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10010 PRINT"C2CD3THIS SHORT MACHINE CODE PROGRAM R 
ESIDES IN MEMORY FROM "$ 

10012 PRINT"LOCATIONS 679 TO 722." 

10014 PRINT"CCD30N RUNNING IT, YOU'LL BE ASKED FOR 
A FILE NAME* AND A DEVICE TO "5 
10016 PRINT"SAVE THE MACHINE CODE TO." 

10018 PRINT"CCD 3ALTERING THE VALUES OF S AND E IN 
LINES 80 AND 90 DETERMINES "; 

10020 PRINT"WHICH PART OF THE MACHINE'S MEMORY Ml 
LL BE SAVED. S AND E"; 

10022 PRINT"ARE THE START AND END ADDRESSES RESPEC 
T-IVELY OF ANY CODE TO BE SAVED. 

10024 PRINT"CCD3JUST RUN IT, ANSWER THE QUESTIONS, 
AND THEN WHEN YOU'RE READY "; 

10026 PRINT"TO SAVE YOUR CODEENTER <IN DIRECT OR P 
ROGRAM MODE) CRVS3SYS679" 

10028 PRINT"CCD 1 PRESS 'SPACE' TO START THE PROGRAM 

ii 

10030 GETSP$sIFSP$<>" "THEN10030 
10032 RETURN 

READY. 

And finally, well take a look at (listen to?) putting sound into your 
adventures. 


Sounding out adventures 

The question of sound in an adventure is almost as vexed as the 
question of graphics, but is a lot easier for the player to decide 
whether to continue with it or not. After all, televisions do have a 
volume control. 

If you're at all familiar with the 64, you'll know about using the SID 
chip to produce a wide variety of noises, for doors creaking open, 
gates slamming shut, snakes hissing, and so on. Indeed, the 'Enor¬ 
mous Cave' listing given in Chapter 9 uses some simple sound ef¬ 
fects from time to time. However, there is one fault in using sound 
in this way, and that is that it stops program operation. If you're 
going to use sound at all it makes sense to let the program carry 
on running while the sound is being made, and the following 
(interrupt-driven again) programs show just one way in which this 
might be done. 
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2 A=A+1:IFA=1THENLOAD "MUSICDEMO",8,1 
5 P0KE53280,9: P0KE53281,7s P0KE53272,23:PRINT"C HOME 
,BLK3MUSICAL INTERRUPTS." 

10 S=54272sPOKES+17.255:P0KES+19,142:P0KES+20,150 

20 POKES+24.15:P0KE49216,10:P0KE49218,0:P0KE49219. 

65:P0KE251,178:P0KE252,192 

30 P0KE253,178:P0KE254,192 

100 POKES+10,255:POKES+12,142:POKES+13,150 

110 P0KE51264,10:P0KE51266,0:P0KE51267.65:P0KE247, 

178:P0KE248,200 

120 P0KE249,178:P0KE250,200:SYS49152 

130 PRINT"CCLRIMS YOU CAN NOW HEAR, IP YOU'VE TURN 

ED UPTHE VOLUME ON YOUR T.V. 

140 PRINT" THERE IS SOME MUSIC PLAYING IN THE BAC 
KGROUND." 

150 PRINT"CCD3PR0GRAM OPERATION CAN CONTINUE AS NO 

RMALBUT THE TUNE WILL CARRY ON "j 

160 PRINT"PLAYING UNTILWE DECIDE TO STOP IT." 

170 PRINT"CCD3W0W IS ALL THIS DONE. AND HOW DO WE 
ALTER THE TUNE?" 

172 PRINT"CCD3PRESS 'PI' TO FIND OUT." 

174 GETA$:IFA$<>"CPI3"THEN174 

176 PRINT"CCLR3THE MACHINE CODE ROUTINE LIES IN ME 
MORY FROM *C000 TO *C914, BUT 

178 PRINT"THERE IS A LOT OF EMPTY SPACE IN THERE T 
0 ALLOW FOR THESTORING "s 
180 PRINT"OF LONGER TUNES." 

182 PRINT 11 CCD3I/0ICE THREE IS CONTROLLED BY THE ROU 
TINEFROM $C000 TO *C0B2, AND "s 

184 PRINT"VOICE TWO BY THE ROUTINE FROM $C800 TO 
*C8B2." 

186 PRINT"CCD3THE TUNES PLAYED ARE. FOR VOICE THRE 
E, AT *C0B3 TO $C114, AND FOR ": 

188 PRINT"VOICE TWO AT *C8B3 TO $C914." 

190 PRINT"CCD3MOTES ARE STORED IN HI-LO FORMAT. WI 
TH TWO 00'S INDICATING A PAUSE. 

192 PRINT"CCD3TO TERMINATE A TUNE. ENTER A VALUE 0 
F 255. OR 11 

194 PRINT"C2CD3PRESS 'FI' AGAIN FOR MORE." 

196 GETB$ sIFB$< > " C F13 "THEN196 

198 PRINT"CCLR3LINES 10 TO 120 SET UP THE ADSR SET 
TINGSFOR BOTH VOICES." 

200 PRINT"CCD370 TURN THE THING OFF. ENTER SYS4917 
1 . " 

202 PRINT"CCD3 AND TO START IT AGAIN. ENTER SVS4915 

2 . " 

204 PRINT"CCD3BUT REMEMBER, WHEN YOU TURN IT OFF. 
THE NOTES WILL TAKE SOME TIME "; 

206 PRINT"TO DIE AWAY BECAUSE OF THE ADSR SETTIN 
GS. " 

208 PRINT"C2CD3PRESS 'FI' TO QUIT. OR 'F7' TO REVI 
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EW THESE INSTRUCTIONS. 

210 GETC* sIFC$="C F7 1"THEN130 
212 IFC$< >"CF13"THEN210 
214 F0RI=0T024sPOKES+1.0:NEXT 

216 P0KE49219.0s P0KE51267.0s SYS49171s P0KE53272.21 
218 END 

READY. 

10 SE = 49152 SEE = 49429 

20 s 

30 FORI = SE TO EE s READ A s POKE I . A .8 NEXT 
40 s 

50000 DATA 234.234.234.120.169,080,141,020,003,169 
.192.141.021,003 

50001 DATA 088,234,234,096,120,169.049,141,020,003 
.169,234,141.021 

50002 DATA 003,088.234,096.234,222.222,222.222,222 
• 222*222 222 222 

50003 DATA 222,222,222,222,222,222,222,222,222,222 
222 222 222,222 

50004 DATA 222,222,222,222,222,222,222,222,010,010 

, 000 , 000 , 000,000 

50005 DATA 000,000,000,000,000,065,000,000,000,000 
,234,234,234,173 

50006 DATA 066,192,240,004,076,049,234,234,206,065 
,192,208,247,234 

50007 DATA 234,234,173,064,192.141,065,192,234,230 
,251,208,002,230 

50008 DATA 252,234,160,000,177,251,201,255,240,040 
234 234 234 234 

50009 DATA 160,000,141,015,212,230,251,208,002,230 
252 234 177 251 

50010 DATA 141,014,212,173,067,192,072,169,000,141 
.018,212,104,141 

50011 DATA 018,212,234,234,076,100,200,234,234,234 
,165,253,133,251 

50012 DATA 165,254,133,252,076,100,192,000,000,000 
,000,002,036,002 

50013 DATA 179,003,054,003,154,003,209,003,154,003 
,054,002,179,002 

50014 DATA 036,002,179,003,054,003,154,003,209,003 
,154,003,054,002 

50015 DATA 179,002,220,003,154,004,073,004,207,005 
,024,004,207,004 

50016 DATA 073,003,154,002,036,002,179,003,054,003 
,154,003,209,003 

50017 DATA 154,003,054,002.179,003,054,004,011,004 
,207,005,102,005 

50018 DATA 184,005,102,004,207.004,011,002,220,003 
,154,004,073,004 
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50019 DATA 207,005,024,004,207,004,073,003,154,255 
,255,000 

READY. 


10 SE = 51200 sEE = 51477 

20 s 

30 FORI = SE TO EE s READ A s POKE I . A s NEXT 
40 s 

50000 DATA 234.234,234,120,169,080,141,020,003,169 
,200,141,021.003 

50001 DATA 08B,234,234.096,120,169,049.141,020.003 
,169,234,141,021 

50002 DATA 003,088,234,096,234,222,222,222,222.222 

, 222 , 222 , 222,222 

50003 DATA 222,222.222.222,222.222,222,222,222,222 

, 222 , 222 , 222,222 

50004 DATA 222,222,222,222,222,222,222,222.010,010 
,000,000,000,000 

50005 DATA 000,000,000,000,000,065,000.000,000,000 
,234,234,234,173 

50006 DATA 066,200,240.004,076,049,234,234,206,065 
,200,208,247,234 

50007 DATA 234,234,173,064,200,141,065,200,234,230 
,247,208,002,230 

50008 DATA 248,234,160,000,177,247,201,255,240,040 
,234,234,234,234 

50009 DATA 160,000,141,008,212,230,247,208,002.230 
,248,234,177,247 

50010 DATA 141,007,212,173,067,200,072,169,000,141 
,011,212,104,141 

50011 DATA 011,212.234.234,076,049,234,234,234.234 
,165,249,133,247 

50012 DATA 165,250.133,248,076,100,200.000,000.000 
,000,002,036,002 

50013 DATA 179,003,054,003,154,003,209,003,154,003 
,054,002,179,002 

50014 DATA 036,002,179,003,054,003,154,003,209,003 
,154,003,054,002 

50015 DATA 179,002,220,003,154,004,073,004,207,005 
,024,004,207,004 

50016 DATA 073,003,154,002,036,002,179,003,054,003 
,154,003,209,003 

50017 DATA 154,003,054,002,179,003,054,004,011,004 
,207,005,102,005 

50018 DATA 184,005,102,004,207,004,011,002,220,003 
,154,004,073,004 

50019 DATA 207,005,024,004,207,004,073,003,154,255 
,255,255 

READY. 
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B* 

PC SR AC XR YR SP 
.:678C 33 00 74 00 F6 


C000 

EA 



NOP 


C001 

EA 



NOP 


C002 

EA 



NOP 


C003 

78 



SEI 


C004 

A9 

50 


LDA 

#$50 

C006 

8D 

14 

03 

STA 

$0314 

C009 

A9 

CO 


LDA 

#$C0 

COOB 

8D 

15 

03 

STA 

$0315 

COOE 

58 



CL I 


COOF 

EA 



NOP 


C010 

EA 



NOP 


COU 

60 



RTS 


CO 12 

78 



SEI 


CO 13 

A9 

31 


LDA 

#$31 

CO 15 

8D 

14 

03 

STA 

$0314 

C018 

A9 

EA 


LDA 

#$EA 

C01A 

8D 

15 

03 

STA 

$0315 

C01D 

58 



CL I 


CO IE 

EA 



NOP 


COIF 

60 



RTS 


C020 

EA 



NOP 


C021 

DE 

DE 

DE 

DEC 

$DEDE,X 

C024 

DE 

DE 

DE 

DEC 

$DEDE,X 

C027 

DE 

DE 

DE 

DEC 

$DEDE,X 

C02A 

DE 

DE 

DE 

DEC 

$DEDE,X 

C02D 

DE 

DE 

DE 

DEC 

$DEDE,X 

C030 

DE 

DE 

DE 

DEC 

$DEDE,X 

C033 

DE 

DE 

DE 

DEC 

$DEDE,X 

C036 

DE 

DE 

DE 

DEC 

$DEDE,X 

C039 

DE 

DE 

DE 

DEC 

$DEDE,X 

C03C 

DE 

DE 

DE 

DEC 

$DEDE,X 

C03F 

DE 

OA 

OA 

DEC 

$OAOA,X 

C042 

00 



BRK 


C043 

00 



BRK 


C044 

00 



BRK 


C045 

00 



BRK 


C046 

00 



BRK 


C047 

00 



BRK 


C048 

00 



BRK 


C049 

00 



BRK 


C04A 

00 



BRK 


C04B 

41 

00 


EOR 

<$00,X) 

C04D 

00 



BRK 


C04E 

00 



BRK 


C04F 

00 



BRK 


C050 

EA 



NOP 


C051 

EA 



NOP 
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C052 

EA 



NOP 


C053 

AD 

42 

CO 

LDA 

$C042 

C056 

FO 

04 


BEQ 

$C05C 

C058 

4C 

31 

EA 

JMP 

$EA31 

C05B 

EA 



NOP 


C05C 

CE 

41 

CO 

DEC 

$C041 

C05F 

DO 

F7 


BNE 

$C058 

C061 

EA 



NOP 


C062 

EA 



NOP 


C063 

EA 



NOP 


C064 

AD 

40 

CO 

LDA 

$C040 

C067 

8D 

41 

CO 

STA 

$C041 

C06A 

EA 



NOP 


C06B 

E6 

FB 


INC 

$FB 

C06D 

DO 

02 


BNE 

$C071 

C06F 

E6 

FC 


INC 

$FC 

C071 

EA 



NOP 


C072 

AO 

00 


LDY 

#$00 

C074 

B1 

FB 


LDA 

<$FB),Y 

C076 

C9 

FF 


CMP 

#$FF 

C078 

FO 

28 


BEQ 

$C0A2 

C07A 

EA 



NOP 


C07B 

EA 



NOP 


C07C 

EA 



NOP 


C07D 

EA 



NOP 


C07E 

AO 

00 


LDY 

#$00 

C080 

8D 

OF 

D4 

STA 

$D40F 

C083 

E6 

FB 


INC 

$FB 

C085 

DO 

02 


BNE 

$C089 

C087 

E6 

FC 


INC 

$FC 

C089 

EA 



NOP 


C08A 

B1 

FB 


LDA 

($FB),Y 

C08C 

8D 

OE 

D4 

STA 

$D40E 

C08F 

AD 

43 

CO 

LDA 

$C043 

C092 

48 



PHA 


C093 

A9 

00 


LDA 

#$00 

C095 

8D 

12 

D4 

STA 

$D412 

C098 

68 



PLA 


C099 

8D 

12 

D4 

STA 

$D412 

C09C 

EA 



NOP 


C09D 

EA 



NOP 


C09E 

4C 

64 

C8 

JMP 

$C864 

C0A1 

EA 



NOP 


C0A2 

EA 



NOP 


C0A3 

EA 



NOP 


C0A4 

A5 

FD 


LDA 

$FD 

C0A6 

85 

FB 


STA 

$FB 

C0A8 

A5 

FE 


LDA 

$FE 

COAA 

85 

FC 


STA 

$FC 

COAC 

4C 

64 

CO 

JMP 

$C064 

COAF 

00 



BRK 




COBO 

00 


C0B1 

00 


C0B2 

00 


C0B3 

02 


C0B4 

24 

02 

C0B6 

B3 


C0B7 

03 


C0B8 

36 

03 

COBA 

9A 


COBB 

03 


COBC 

D1 

03 

COBE 

9A 


COBF 

03 


COCO 

36 

02 

C0C2 

B3 


C0C3 

02 


C0C4 

24 

02 

C0C6 

B3 


C0C7 

03 


C0C8 

36 

03 

COCA 

9A 


COCB 

03 


COCC 

D1 

03 

COCE 

9A 


COCF 

03 


CODO 

36 

02 

C0D2 

B3 


C0D3 

02 


C0D4 

DC 


C0D5 

03 


C0D6 

9A 


C0D7 

04 


C0D8 

49 

04 

CODA 

CF 


CODB 

05 

18 

CODD 

04 


CODE 

CF 


CODF 

04 


COEO 

49 

03 

C0E2 

9A 


C0E3 

02 


C0E4 

24 

02 

C0E6 

B3 


C0E7 

03 


C0E8 

36 

03 

COEA 

9A 


COEB 

03 


COEC 

D1 

03 

COEE 

9A 


COEF 

03 


COFO 

36 

02 
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BRK 

BRK 

BRK 

??? 

BIT $02 
??? 

??? 

ROL $03,X 
TXS 
??? 

CMP ($03),Y 
TXS 
??? 

ROL $02.X 
??? 

??? 

BIT $02 

??? 

??? 

ROL $03,X 
TXS 
??? 

CMP ($03),Y 

TXS 

??? 

ROL $02,X 
??? 

??? 

??? 

??? 

TXS 

??? 

EOR #$04 

??? 

ORA $18 

77? 

??? 

??? 

EOR #$03 

TXS 

??? 

BIT $02 
??? 

??? 

ROL $03,X 

TXS 

??? 

CMP ($03),Y 
TXS 
??? 

ROL $02,X 




C0F2 

B3 



??? 


C0F3 

03 



??? 


C0F4 

36 

04 


ROL 

$04, X 

C0F6 

OB 



??? 


C0F7 

04 



??? 


C0F8 

CF 



??? 


C0F9 

05 

66 


ORA 

$66 

COFB 

05 

B8 


ORA 

$B8 

COFD 

05 

66 


ORA 

$66 

COFF 

04 



??? 


ClOO 

CF 



??? 


C101 

04 



??? 


Cl 02 

OB 



??? 


C103 

02 



??? 


C104 

DC 



??? 


C105 

03 



??? 


Cl 06 

9A 



TXS 


Cl 07 

04 



??? 


C108 

49 

04 


EOR 

#$04 

C10A 

CF 



??? 


C10B 

05 

18 


ORA 

$18 

C10D 

04 



??? 


C10E 

CF 



??? 


C10F 

04 



??? 


C110 

49 

03 


EOR 

#$03 

Cl 12 

9A 



TXS 


Cl 13 

FF 



??? 


Cl 14 

FF 



??? 


C800 

EA 



NOP 


C801 

EA 



NOP 


C802 

EA 



NOP 


C803 

78 



SEI 


C804 

A9 

50 


LDA 

#$50 

C806 

8D 

14 

03 

STA 

$0314 

C809 

A9 

C8 


LDA 

#$C8 

C80B 

8D 

15 

03 

STA 

$0315 

C80E 

58 



CL I 


C80F 

EA 



NOP 


C810 

EA 



NOP 


C811 

60 



RTS 


C812 

78 



SEI 


C813 

A9 

31 


LDA 

#$31 

C815 

8D 

14 

03 

STA 

$0314 

C818 

A9 

EA 


LDA 

#$EA 

C81A 

8D 

15 

03 

STA 

$0315 

C81D 

58 



CL I 


C81E 

EA 



NOP 


C81F 

60 



RTS 


C820 

EA 



NOP 
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C821 

DE 

DE 

DE 

DEC 

$DEDE,X 

C824 

DE 

DE 

DE 

DEC 

$DEDE,X 

C827 

DE 

DE 

DE 

DEO 

*DEDE,X 

C82A 

DE 

DE 

DE 

DEO 

$DEDE,X 

C82D 

DE 

DE 

DE 

DEC 

*DEDE,X 

C830 

DE 

DE 

DE 

DEO 

SDEDE* X 

CB33 

DE 

DE 

DE 

DEC 

$DEDE,X 

0836 

DE 

DE 

DE 

DEO 

$DEDE,X 

C839 

DE 

DE 

DE 

DEC 

DEDE,X 

C83C 

DE 

DE 

DE 

DEO 

$DEDE,X 

C83F 

DE 

OA 

OA 

DEC 

$OAOA,X 

C842 

00 



BRK 


C843 

00 



BRK 


C844 

00 



BRK 


C845 

00 



BRK 


C846 

00 



BRK 


C847 

00 



BRK 


C848 

00 



BRK 


C849 

00 



BRK 


C84A 

00 



BRK 


C84B 

41 

00 


EOR 

($00,X) 

C84D 

00 



BRK 


C84E 

00 



BRK 


C84F 

00 



BRK 


0850 

EA 



NOP 


C851 

EA 



NOP 


C852 

EA 



NOP 


C853 

AD 

42 

08 

LDA 

$0842 

C856 

F0 

04 


BEQ 

$0850 

C858 

4C 

31 

EA 

JMP 

$EA31 

C85B 

EA 



NOP 


C85C 

CE 

41 

08 

DEC 

$0841 

C85F 

DO 

F7 


BNE 

$0858 

C861 

EA 



NOP 


0862 

EA 



NOP 


C863 

EA 



NOP 


C864 

AD 

40 

08 

LDA 

$0840 

C867 

8D 

41 

08 

STA 

$0841 

CB6A 

EA 



NOP 


C86B 

E6 

F7 


INC 

$F7 

C86D 

DO 

02 


BNE 

$0871 

CB6F 

E6 

FB 


INC 

$F8 

C871 

EA 



NOP 


C872 

AO 

00 


LDY 

#$00 

C874 

B1 

F7 


LDA 

($F7),Y 

0876 

09 

FF 


CMP 

#$FF 

C878 

FO 

28 


BEQ 

$C8A2 

C87A 

EA 



NOP 


C87B 

EA 



NOP 


C87C 

EA 



NOP 


C87D 

EA 



NOP 
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C87E 

AO 

00 


LDY 

#$oo 

C880 

8D 

08 

D4 

STA 

$D40B 

C883 

E6 

F7 


INC 

$F7 

C885 

DO 

02 


BNE 

$C8B9 

C887 

E6 

F8 


INC 

$F8 

C889 

EA 



NQP 


C88A 

B1 

F7 


LDA 

<$F7), Y 

C88C 

8D 

07 

D4 

STA 

$D407 

C88F 

AD 

43 

CB 

LDA 

$C843 

C892 

48 



PHA 


C893 

A9 

00 


LDA 

#$00 

C895 

8D 

OB 

D4 

STA 

$D40B 

C898 

68 



PLA 


C899 

8D 

OB 

D4 

STA 

* 

O 

4* 

O 

W 

C89C 

EA 



NOP 


C89D 

EA 



NOP 


C89E 

4C 

31 

EA 

JMP 

$EA31 

C8A1 

EA 



NOP 


C8A2 

EA 



NOP 


C8A3 

EA 



NOP 


C8A4 

A5 

F9 


LDA 

$F9 

C8A6 

85 

F7 


STA 

$F7 

C8A8 

A5 

FA 


LDA 

$FA 

C8AA 

85 

F8 


STA 

$FB 

C8AC 

4C 

64 

C8 

JMP 

$C864 

C8AF 

00 



BRK 


C8B0 

00 



BRK 


C8B1 

00 



BRK 


C8B2 

00 



BRK 


C8B3 

02 



??? 


C8B4 

24 

02 


BIT 

$02 

C8B6 

B3 



??? 


C8B7 

03 



??? 


C8B8 

36 

03 


ROL 

$03, X 

C8BA 

9A 



TXS 


C8BB 

03 



??? 


C8BC 

D1 

03 


CMP 

($03),Y 

C8BE 

9A 



TXS 


C8BF 

03 



??? 


C8C0 

36 

02 


ROL 

$02, X 

C8C2 

B3 



??? 


C8C3 

02 



??? 


C8C4 

24 

02 


BIT 

$02 

C8C6 

B3 



??? 


C8C7 

03 



??? 


C8C8 

36 

03 


ROL 

$03, X 

C8CA 

9A 



TXS 


C8CB 

03 



??? 


C8CC 

D1 

03 


CMP 

($03),Y 

C8CE 

9A 



TXS 


C8CF 

03 



??? 
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C8D0 36 02 
C8D2 B3 
C8D3 02 
C8D4 DC 
C8D5 03 
C8D6 9A 
C8D7 04 
C8D8 49 04 
C8DA CF 
C8DB 05 18 
C8DD 04 
C8DE CF 
C8DF 04 
C8E0 49 03 
C8E2 9A 
C8E3 02 
CBE4 24 02 
C8E6 B3 
C8E7 03 
C8E8 36 03 
C8EA 9A 
C8EB 03 
C8EC D1 03 
C8EE 9A 
C8EF 03 
C8F0 36 02 
C8F2 B3 
C8F3 03 
C8F4 36 04 
C8F6 OB 
C8F7 04 
C8F8 CF 
C8F9 05 66 
C8FB 05 B8 
C8FD 05 66 
C8FF 04 
C900 CF 
C901 04 
C902 OB 
C903 02 
C904 DC 
C905 03 
C906 9A 
C907 04 
C908 49 04 
C90A CF 
C90B 05 18 
C90D 04 
C90E CF 
C90F 04 
C910 49 03 


ROL $02,X 
??? 

??? 

??? 

??? 

TXS 

??? 

EOR #$04 

??? 

ORA $18 

??? 

??? 

??? 

EOR #$03 
TXS 
??? 

BIT $02 
??? 

??? 

ROL $03,X 
TXS 
??? 

CMP ($03),Y 

TXS 

??? 

ROL $02,X 

??? 

??? 

ROL $04.X 

??? 

??? 

??? 

ORA $66 
ORA $B8 
ORA $66 
??? 

??? 

??? 

??? 

??? 

??? 

??? 

TXS 

??? 

EOR #$04 

??? 

ORA $18 

??? 

??? 

??? 

EOR #$03 
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C912 9A 
C913 FF 
C914 00 


TXS 

??? 

BRK 


The first program contains all the instructions for using and altering 
the remaining Basic or machine-code listings. Quite simply, you 
determine which note you want to play, say the third C note that 
the 64 can play, and by consulting your 64 manual you'll find that 
this converts to hi-lo values of 8 and 147 respectively. Converting 
these to hexadecimal gives you the numbers $8 and $93. These are 
then POKEd into memory (or simply typed in using an assembler) 
starting at locations $C0B3 and $C0B4 for voice three, or $C8B3 and 
$C8B4 for voice two. The next note is then stored at locations $C0B5 
and $C0B6 (for voice three), and so on. When you come to the end 
of a tune, put the value 255, or hexadecimal $FF, into memory, and 
the tune will start again from the beginning. 

ADSR settings are POKEd in at the start of the program. 

Of course, you don't have to play a tune. Moody, atmospheric, oc¬ 
casional notes can do much to enhance an adventure. 


Conclusion 

We have explored many graphical avenues in this chapter, and 
hopefully you'll be able to use one or more of them in your own 
adventures - if you want to, that is! Graphics can be useful and, 
if used wisely, can improve an otherwise lacklustre adventure. 
Whether they do so or not is up to you and your imagination. Mind 
you, after all is said and done, I suppose you could always use disk 
drives and go and buy a Koala Pad! 

Talking about disk drives ... 
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3 

Tape or Disk? 


Introduction 


When sitting down to think about writing an adventure, one of the 
first decisions you must make is whether or not you are going to 
use tape or disk as a storage medium. If you only have one or the 
other then there's not much of a decision involved, but if you're in 
the fortunate position of having both you'll have to decide which 
one to use. 

By use, I don't just mean whether you're going to save the program 
on disk or tape. If you've got a disk drive there seems little point 
in developing a program and continually saving it to or loading it 
from tape. The time spent doing this alone is prohibitive. 

No, the decision to be made is whether you load the program from 
tape and have it all residing in the machine at the same time, or 
whether you load the main program from disk and then continually 
access the disk to print up messages, room descriptions and the like. 

Using disk has one great obvious advantage: much more memory, 
which means a bigger game, a larger vocabulary, and richer room 
descriptions and messages. On the other hand, unless you use some 
machine-code disk-handling routines and either write your main pro¬ 
gram in machine code or compile it, you'll spend a lot of time listen¬ 
ing to the whirring of the Commodore disk drive as it strives to find 
the correct piece of information on disk. Commodore drives are not 
the fastest in the world, and although a time of (say) five seconds 
to access any part of a file may not seem like a very long time, if 
you've got something like 200 room descriptions and 400 messages 
stored away, you'll find that at the end of a complete game featur¬ 
ing all descriptions and messages you'll have wasted some fifty 
minutes on disk access time. 
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Consider a case in point. Some time ago Jim Butterfield produced 
a disk-based version of the original Colossal Cave, and very good 
it was too: it certainly sparked off my interest in this particular genre 
of game. Recently I produced a tape-based version of the same 
game, using the same story line, objects, treasures and so on. The 
only difference (apart from the program of course) was that Jim's 
kept accessing the disk and mine resided in memory at all times, 
although to be truthful I did have to cut down on some of the text. 
A reviewer in a user-group magazine, comparing the two versions 
of the game, preferred mine to Jim's for precisely that reason: he 
wasn't continually waiting for files to be hauled in from disk. 

There is an example of both types of game in this book. Chapters 
5 and 8 cover a tape-based one, and Chapter 9 covers a disk-based 
one. Although the tape one is a deliberately small game to give 
newcomers a gentle introduction into the art of writing adventures, 
the disk program contains ten times as many locations, with generally 
longer descriptions, a much wider-ranging vocabulary, and a whole 
host of messages that combine to produce a much more interesting 
game. 

Looking at this question from a commercial viewpoint is a different 
matter, since software houses seem reluctant to release adventure 
games on disk, always preferring to use tape-only games. Quite why 
this is so I have no idea, since I'm sure there are sufficient disk users 
around to warrant releasing games on disk, but ours is not to reason 
why, ours is to produce an adventure game or die, so as usual I'll 
leave the decision up to you. 

Whichever you choose, let's take a look at some typical uses of both 
tape and disk when producing adventure games. 


Saving on memory 

When using either tape or disk there are some simple rules which, 
if correctly observed, will make a great difference to the size of your 
Basic program. Since adventure games tend to eat up memory, this 
can be no bad thing. 

(1) Programs look much more legible if lines are spaced out, as in 
the following example: 

10 FOR I = 1 TO 10 : PRINT I : NEXT I 
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However, that takes up a lot more space in memory than: 

10 FORI = 1TO10:PRINTI:NEXT 

Not only have we removed the I parameter after the NEXT state¬ 
ment (although you can't always do this if more than one loop is 
operative at a time), but we've also got rid of the additional 10 
superfluous spaces. The line may now be harder to read, but ten 
spaces is ten bytes, and taken over a long program can save at least 
as much as a K of memory. 

(2) Each line number takes up a certain amount of memory, whereas 
putting colons between separate statements with the same line 
number takes up less. Thus, it might look neater to have: 

10 A=2 
20 B = 5 
30 C = A*B 
40 PRINTC 

But far less wasteful is: 


10 A=2:B = 5:C = A*B:PRINTC 


(3) Variables should always be declared at the start of a program. 
Furthermore, whenever a numerical constant is to be used more than 
once (e.g. the mathematical constant PI), it saves an awful lot of 
memory to define a variable to be equal to PI. Thus we might have 
something like: 

10 PI = 3.14159 

20 PRINT "THE AREA OF A CIRCLE WITH RADIUS 10 IS 
30 PRINT Pl*10*10 

Note the use of 10*10 rather than 10 to the power 2. It's a lot quicker 
to execute. 

Since so many routines on the 64 depend on the use of sound (star¬ 
ting memory location 54272) and sprites (53248), it makes a lot of 
sense to define a couple of variables SO = 54272 and SP = 53248, 
and then just refer to other locations as SO plus something or SP 
plus something. 

(4) String variables take up space as soon as they're declared, 
regardless of the length of that string. Make the string longer, and 
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yet more space is eaten up, but making it shorter still leaves us with 
a certain amount of memory occupied. Obviously it isn't possible 
to avoid strings at all times, but their use should be kept to a sensi¬ 
ble minimum. 

(5) Matrices eat up memory, and if you're going to define a two- 
dimensional matrix of any size, make sure that every element of the 
array is used. Whether it is used or not, the Commodore 64 still 
reserves some space for it, so if it remains unused it's a criminal 
waste of memory. 

(6) Subroutines certainly save on memory, since one subroutine and 
five GOSUBs to it take up far less space than duplicating the code 
five times. But beware. If a subroutine is used only once in a pro¬ 
gram, it will occupy more space than merely typing out the code, 
since the commands GOSUB and RETURN themselves occupy 
memory. 

(7) It is sometimes convenient to separate out mathematical expres¬ 
sions with extra brackets to make them more legible. But brackets 
take up memory space, and it is advisable to let operator precedence 
sort the expression out rather than use unnecessary brackets. 

(8) Wherever possible always use integer variables instead of ordinary 
ones: the saving on memory can be quite dramatic. Try it for yourself 
by declaring an array P(250,3), see how much memory is left, per¬ 
form a CLR, declare an array P%(250,3) and again see how much 
memory is left. Quite a difference. 

(9) And finally, the biggest saving of all: using data files! 


Data conservation 

When writing adventure games, somewhere in the program you'll 
have to have a collection of data that forms the map for the game. 
Since I usually only use the four cardinal compass points: North, 
South, East and West, and rely on movements in other directions 
(such as up and down) being sorted out by the program where ap¬ 
propriate, in a 250 location adventure I’ll use a two-dimensional ar¬ 
ray, like this: 

DIMP(249,3) 

Remember that the first element of an array is always referred to 
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as element zero. Now dimensioning an array like this takes up an 
awful lot of memory: 5009 bytes, in fact. What it also does is to 
reserve a section of memory at the top of the area set aside for Basic, 
which will be occupied no matter whether we use all the elements 
of the array or not. 

A typical element in our P(249,3) array will be a two-digit number. 
Since our room numbers run from 0 to 249, and a lot of the rooms 
will not allow you to go in particular directions, on average each 
element will be about two digits long. 

Since this data has to be read into the program at some point, you 
might think that a vast assortment of data statements will be 
necessary somewhere along the way, and that these will be used 
to get the data into our array. But just think for a moment. We've 
got 1000 numbers to type in, each on average about two digits long, 
so together with line numbers, DATA statements, and associated 
commas between each data element, incorporating a collection of 
data statements in the main body of the program will occupy around 
3K of memory, which is a lot, especially for a complex adventure 
program. 

The solution is to store all this data on tape or disk, and read it into 
the program as soon as we start running it. This way, although we 
still lose our 5009 bytes for the array, we don't lose that additional 
3K for however many data statements it takes to define everything. 
True, they have got to be typed in at some point, but that's just 
some work on my part: the user never gets to see it. So before even 
considering the rest of the program, there is one shorter program 
that consists of thousands of data statements (well, tens of them 
anyway), and a short program to file it all on to tape or disk, when 
developing the program. 

10 DATA0,1,2,3,4,4,3,4,1,0,5,3 .... 


1000 OPEN2,8,2,"0:ROOM DATA,S,W" 
1002 FORI = 0TO249:FORJ = 0TO3 
1004 PRINT#2,P(I,J);CHR$(13); 

1006 NEXT J,l 


This takes each element of the array in turn and stores it on disk 
in the file ROOM DATA. Note the CHR$(13), a carriage return. 
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separating each item of data. Then that program can be deleted and 
the rest of the adventure sorted out. It's usually more of an adven¬ 
ture getting the program to work than it is solving the thing! 

When it comes to playing the completed game, the first part of the 
program contains a routine to read in all the data from disk, rather 
like this: 

2000 OPEN2,8,2,''0:ROOM DATA,S,R" 

2002 FORI = 0TO249:FORJ = 0TO3 
2004 INPUT#2,P(I,J) 

2006 NEXT J,l 
2008 RETURN 

A saving of around 3K is not to be sniffed at, and any programmer 
who uses vast amounts of data like this would be well advised to 
haul everything in from tape or disk, rather than having it stored 
in the main program. The computer sets aside some memory 
anyway, there's no need for you to set aside even more. 


Unfortunately those short programming examples won't really give 
you much of an idea about how data is really stored in a sequential 
file on tape or disk, so let's take a look at some longer programming 
examples. 


3000 PRINT H CCLR 1 1NSERT TAPE AND PRESS 'SPACE' WHEN 
READY“ 

3002 GETPP*;IFPP*<>" “THEN3002 
3004 PR I NT” OK. 11 

3006 OPEN1,lfli"DATA" 

3007 FQRI s lTQLOs PRINT#1 v QB%(I) sCR*s 

3008 NEXTI 

3009 PRINT#1,CPs CR*s TB;CR*; GF; CR*;PD;CR*;ZZ;CR*;SC 
;CR*;DF;CR*;BR;CR*;NP;CR*; 

3010 PRINT#1,P*(10)s CR*;P*(60);CR*s P*(50);CR*sP* <2 
7);CR*;P*(15);CR*;P*(21);CR*; 

3012 PRINT#1,P*(4);CR*;P*(93)sCR*;P*(79);CR*;P*(84 
);CR*;P*(74);CR*s 

3014 PRINT#1,P*(69);CR*;P*(42);CR*;OB*(30);CR*;OB* 
(3);CR*;OB*(31);CR*; 

3016 PRINT#1,P%(45,1);CR*;PX(10,3) sCR*;P7.(3,0) ;CR* 
;P%(60,1);CR*;P7.(50,3) ;CR*; 

3018 PRINT#1,P7.(27,0) ;CR*;PX(15,1);CR*sP7.(15,2);CR 
*;PX(21,2);CR*;PX(4,3>;CR*; 

3020 PRINT#1,PX(93,0) ;CR*;PY.(79,2) ;CR*;PX(84,2) ;CR 
*;PX(84,3) ;CR*;PX(74,3) ;CR*; 

3022 PRINT#1,PX(60,0);CR*;PX(60,3);CR*;PX(69,3);CR 
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*;Py.<42,l) ;CR*; 

3024 CLOSE1 
3026 RETURN 

3200 PRINT"CCLRDINSERT TAPE AND PRESS 'SPACE' WHEN 
READY" 

3202 GETPPSsIFPP$<>" "THEN3202 
3204 PRINT"OK." 

3206 0PEN1,1,0,"DATA" 

3207 F0RI»lT0LQsINPUT#l,QB7.(I) 

3208 NEXTI 

3209 INPUT#1,CP,TB,GF,PD,ZZ,SC,DF,BR,NP 

3210 INPUT#1,P*(10),P$(60),P$(50),P$(27),P*(15),P$ 
(21) 

3212 INPUT#1,P$(4),P$(93),P$(79),P$(84),P$(74) 

3214 INPUT# 1,P$<69),P$(42),0B$(30) ,0B$(3),0B$(31) 
3216 I NPUT# 1 ,P7(45, 1) ,P7.(10,3> ,P7. (3,0) ,P7.(60,1) ,P7 
(50,3) 

3218 I NPUT # 1, P7 (27,0) ,P7.(15,1) ,P7.( 15,2) ,P7.(21,2) ,P 
7(4,3) 

3220 I NPUT # 1, P7 (93,0) ,P7.(79,2) ,P7.(84,2) ,P7.(84,3) ,P 
7. (74,3) 

3222 I NPUT # 1, P7 (60,0) ,P7.(60,3) ,P7.(69,3) ,P7.(42,1) 
3224 CLOSE1 
3226 RETURN 

<r 

READY. 

10 REM ##***#####*#**##***#** 

11 REM * EXAMPLE * 

15 REM * READ AND WRITE A * 

20 REM * SEQUENTIAL DATA * 

25 REM * FILE ON 1541 DRIVE * 

30 REM #********#«*«***###*## 

35 P0KE53281,7b P0KE53280,9;PRINTCHR$(14)s PRINT"C CL 
R,BLK3" 

40 DIM A$(25),B(25) 

45 0PEN15,8,15iREM OPEN COMMAND CHANNEL 
50 PRINT#15,"10"s REM INITIALISE DRIVE 
55 G0SUB245s REM CHECK ERROR CHANNEL 
60 CR$=CHR$(13) 

65 PRINT"CRVS1WRITE TEST FILE" 

95 0PEN2,8,2,"@0s TEST FILE,S,W":REM OPEN FILE 
105 G0SUB245 

110 INPUT"A$,B"jA*,BsREM GET DATA FROM USER 
115 IFA$="END"THEN135 

120 PRINT#2,A$","STR$(B)CR$ssREM WRITE DATA 
125 G0SUB245 
130 G0T0110 

135 CL0SE2s REM CLOSE CHANNEL 

170 0PEN2,8,2,"OsTEST FILE,S,R"sREM READ FILE 
175 G0SUB245 
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180 INPUT#2,A*(I),B(I)sREM INPUT DATA AGAIN 
185 RS=STtREM STORE DISK STATUS 
190 G0SUB245 
195 PRINTA$<I),B(I) 

200 IFRS=64THEN220cREM CHECK END OF FILE 

205 IFRS< >0THEN230s REM CHECK FOR ERROR IN FILE STA 

TUS 

210 1 = 1+1 
215 GOTO180 
220 CL0SE2 
225 END 

230 PRINT"CRVS3BAD DISK STATUS IS"RS 
235 CL0E2 
240 END 

245 INPUT#15,EN*,EM*,ES*,ET*sREM GET ERROR 

285 IFEN*="00"THENRETURN 

290 PRINT"CRVS3ERR0R ON DISK "jEM* 

295 CLOSE15(CL0SE2 
300 END 

READY. 

Looking at the tape program first, note how everything is separated 
by a character CR$. Since this sub-listing is taken from a real adven¬ 
ture, CR$ was defined earlier in the program to be equal to a car¬ 
riage return. Note also how there is no restriction on what we can 
file away: simple variables, integer variables, parts of a string array, 
parts of an integer array, anything can be filed on tape. 

When reading the data back in again, it is vitally important that it 
is read in in the same order as it was originally filed out. If not, chaos! 
To avoid this problem, what I usually do is type in all the lines for 
storing the data on tape first, and then using the Commodore editing 
system list (in this program anyway) lines 3009-3022 on the screen, 
renumber it as 3209-3222. Then, change all the PRINT# statements 
to INPUT#, and finally just remove all the CR$ characters. It's a 
quicker way of entering the lines anyway, and you can virtually 
guarantee that you'll get everything in the right order. 

The format for disk is very similar to the format for tape, the only 
real difference being the manner in which a file is opened for either 
reading or writing data. To see this, look at lines 3206 and 3006 in 
the tape program, and lines 95 and 170 in the disk one. 
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Storing messages 


The following program, alas, applies only to disk. It could in theory 
be used on tape as well, but in practice it would be a bit ridiculous, 
and I don't really recommend it. 


What we are going to do is look at just one way in which we can 
store messages and room descriptions on disk, and then, according 
to the state of the game, retrieve and display those messages on 
the screen. 


0 DATA162,6,32,198,255,32,228,255,201,42,208,249,3 
2,228,255,205,155,3,208 

1 DATA241,76,204,255 

2 FORI=900T09228READA:POKEI,As NEXT 

4 READAsIFA=-1THENST0P 

5 A*=STR$<A> :A*=MID$<A$,2):A*="COL"+A$ 

10 0PEN2,8,2,“80s"+A$+“,S,W“ 

20 READA$sF0RI-1T0LEN<A*> sZ$=MID*<A*,1,1) 

21 IFZ$<>“^“THENPRINT#2,Z$s :NEXT:PRINT#2,CHR$<13); 
s 80T020 

22 CL0SE2 

23 G0T04 

25 B$="C0L3":F2=»0 

26 0PEN6,B,6, M 0: "+B$+“ ,S,R" 

27 PRINT:PRINTS INPUT “NO."sA$:F3=F2:IFA*®“-1“THENC 
L0SE6:END 

28 IFLEN<A$) =1THENF$=A$:A$=“COLO" sG0T031 

29 IFLEN<A$>=2THENF$=MID$<A$,2> :A$«“COL"+LEFT*<A$, 
1)s G0T031 

30 F$=RIGHT$<A$,1> :A$=“COL"+LEFT$<A$,2> 

31 F2«VAL<F*>sP0KE923,F2+48 

32 I FF2< =*F3THENCL0SE6 s 0PEN6,8,6, “ 0 s ” +A*+ “ , 8, R “ s B$* 
A$s G0T035 

33 IFA$<>B$THENCL0SE6s0PEN6,8,6,“Os"+A$+",S,R“sB$= 
M 

35 SYS900 
37 GET#6,Z$ 

41 IFZ$=“ 1 "THENFORI«1T02000sNEXT:PRINTS G0T037 

42 IFZ*=“#“THEN27 

43 PRINTZ^s s G0T037 
100 DATA21 

102 DATA"*OVQU ARE READING A STRING USED TO CREATE 
104 DATA"AN ADVENTURE TEXT FILE ON DISK.#“ 

110 DATA"*1JUST ANOTHER EXAMPLE OF A STRING, WHICH 
112 DATA 11 COULD BE MADE A LOT LONGER IF I WANTED I 
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T TO BE.#"' 
120 DATA—1 

READY. 


A careful explanation of this program is called for, since it is an ex¬ 
tremely useful utility for the would-be adventure writer. 


Explanation 

Lines 0-2: machine-code routine to get a character from a file stored 
on disk. The equivalent of GET #2,A$, but about ten times as fast. 
Here it's stored starting at memory location 900, but you can move 
it anywhere you like really. Just remember to change the SYStem 
call as appropriate. 

Line 4: read some numeric data (in this case from line 100), and if 
it comes across a '-1' then stop everything. 

Line 5: take the string equivalent of the number, take everything 
from the second character onwards in that string (remembering that 
STR$ always creates a leading space at the start of a string), and 
add the word COL to the string. COL is just used by this program, 
you can call your files whatever you like, and use whatever numbers 
you like, but it makes sense to have COLO, COL1, COL2 and so on. 

Line 10: open a sequential write file to disk, and call it by whatever 
is in A$. In this listing it will be COL21. 

Line 20: read a string (in this case from line 102), and then start a 
loop which will selectively store each character in A$ in Z$. 

Line 21: if Z$ is not equal to the up-arrow key (a printer quirk), then 
print the character to the file and carry on around the loop until it's 
all finished. Then, print a carriage return to the file and trundle back 
for another string. 

Line 22: we've encountered in the string an up-arrow key, so we 
want to close this file and start another new one. 

Line 23: which is what this line starts. 

That's the end of the sequence to store the files on disk. If you look 
at the data you'll see that each new description or message starts 
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with an asterisk ('*') followed by a number. In using this program, 
you could have room descriptions ranging from *0 to *9, but not 
beyond that, for reasons which we'll come to in a minute. The up- 
arrow key, which is what the odd symbol at the end of line 112 is 
meant to be, signifies the end of a file. 

Line 25: declare a dummy string to be one of the files on the disk, 
and set the variable F2. 

Line 26: open a sequential file to read data from disk. 

Line 27: request the user to enter a number, although in your own 
adventures this would be the room or message number. Then set 
the variable F3 and check for the user entering '-1' to end the pro¬ 
gram run. 

Line 28: if only a single digit was entered, then set F$ equal to A$, 
A$ equal to COLO (since if only one digit was entered we know that 
we're looking for one of the first nine entries in file 0), and go to 
line 31. 

Line 29: if only two digits were entered, set F$ equal to the right 
hand character in A$, A$ equal to COL plus the left hand character, 
and off to 31 again. 

Line 30: assumes more than two digits (the maximum number that 
this can handle is 999), so F$ is set to the right most character again, 
A$ is set to COL plus the two left hand characters. 

Line 31: set F2 equal to the value of the number stored in F$, and 
POKE the ASCII value of that number into memory location 923 for 
use by the machine-code routine. This will also need to be altered 
if you move the routine. 

Line 32: if F2 (set in line 31) is less than or equal to F3 (from line 
27) then we have to close one file and open another one, before 
setting B$ equal to A$. In other words, we're either moving to a 
different file or we're still in the same file but reading an earlier part 
of it. 

Line 33: same sort of thing if A$ (new file name) is not equal to B$ 
(old file name). 

Line 35: call to the machine-code routine which gets characters from 
a file until it finds an asterisk and the number poked into memory 
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in line 31. 


Line 37: conventionally getting a character from disk. 

Line 41: if it's a square right hand bracket then pause for a while. 
You can use this to put some tension in your messages. 

Line 42: if it's a hash sign then that's the end of the file. 

Line 43: otherwise print the character and go and get another one. 

Then there's just the data. 


Conclusion 

This utility will come into is own in Chapter 8, where it's used in 
a serious (well, slightly serious) adventure. 

Whether you use disk or tape, it's an easy matter to save memory 
and speed up your Basic by following a few simple rules and using 
either storage medium to its best advantage. 

The next chapter contains some more utilities to help you in your 
adventure quest! 
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4 

Useful Routines 


Introduction 


Before compiling these routines, I tried to think of a variety of pro¬ 
grams that would be useful to both writers and players of adven¬ 
ture games, i.e. a selection of programs that would improve the 
user-friendliness of adventure games, while at the same time mak¬ 
ing them easier to write. These four routines fall nicely into that 
category, and the first two concern our old friends the function keys. 


Key defining 


A number of programs have been written that re-define the func¬ 
tion keys, but this utility can be made to work from within another 
program to define each key to produce what you want it to pro¬ 
duce, up to a maximum of 128 characters for all eight keys. At 16 
characters per key, there should be enough room to perform a variety 
of actions. 

First of all, the Basic loader: 

10 SE = 49272 :EE = 49414 

20 s 

30 FORI = SE TO EE s READ A s POKE I , A : NEXT 
40 s 

50000 DATA 120.169.144,141,020,003,169,192,141,021 
,003,088,096.166 

50001 DATA 251.224,255,208,002,230,252,230,251,096 
,165.197,197.254 

50002 DATA 240.058,201,003,048,054,201,007,016,050 
.133,254,201,003 

50003 DATA 208.003,024,105,004,024,105,129,174,141 
,002.240,003,024 

50004 DATA 105.004,133,253,160.000,169,194,133,252 
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*132,251,177,251 

50005 DATA 197,253,240,019,200,208,247,230,252.165 
,252,201,197,208 

50006 DATA 239.076.049,234,133.254,076,049,234,200 
,208.008.230.252 

50007 DATA 165.252.201.197,240,242,177,251,201,013 
,208,010.230.198 

50008 DATA 166.198.157.119,002,076,213,192.201,000 
,240,222.201,133 

50009 DATA 048.007,201,141,016.003.076,049,234.032 
,210.255.076.213 

50010 DATA 192.000,255 

READY. 

This just reads in the 145 bytes of data necessary for the routine 
(in fact only 143 are used) and POKEs them into memory starting 
at location 49272. If you prefer to see these things in machine code, 
and perhaps increase your understanding of how machine code 
works, type in the following listing: 

EH* 

FC SR AC XR YR SP 
.:97FE 30 00 00 00 F6 


CG78 

78 



SEI 


C079 

A9 

90 


LDA 

#$90 

C07B 

8D 

14 

03 

STA 

$0314 

C07E 

A9 

CO 


LDA 

#$C0 

C080 

8D 

15 

03 

STA 

$0315 

C083 

58 



CL I 


C084 

60 



RTS 


C085 

A6 

FB 


LDX 

$FB 

C087 

EO 

FF 


CPX 

#$FF 

C089 

DO 

02 


BNE 

$C08D 

C08B 

E6 

FC 


INC 

$FC 

C08D 

E6 

FB 


INC 

$FB 

C08F 

60 



RTS 


C090 

A5 

C5 


LDA 

$C5 

C092 

C5 

FE 


CMP 

$FE 

C094 

FO 

3A 


BEQ 

$CODO 

C096 

C9 

03 


CMP 

#$03 

C098 

30 

36 


BMI 

$C0D0 

C09A 

C9 

07 


CMP 

#$07 

C09C 

10 

32 


BPL 

$CODO 

C09E 

85 

FE 


STA 

$FE 

COAO 

C9 

03 


CMP 

#$03 

C0A2 

DO 

03 


BNE 

$C0A7 

C0A4 

18 



CLC 


C0A5 

69 

04 


ADC 

#$04 
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C0A7 

18 



CLC 


C0A8 

69 

81 


ADC 

#$81 

COAA 

AE 

8D 

02 

LDX 

$02BD 

COAD 

FO 

03 


BEQ 

$C0B2 

COAF 

18 



CLC 


COBO 

69 

04 


ADC 

#$04 

C0B2 

85 

FD 


STA 

$FD 

C0B4 

AO 

00 


LDY 

#$00 

C0B6 

A9 

C2 


LDA 

#$C2 

COBB 

85 

FC 


STA 

$FC 

COBA 

84 

FB 


STY 

$FB 

COBC 

B1 

FB 


LDA 

<$FB),Y 

COBE 

C5 

FD 


CMP 

$FD 

COCO 

FO 

13 


BEG 

$C0D5 

C0C2 

C8 



I NY 


C0C3 

DO 

F7 


BNE 

$COBC 

C0C5 

E6 

FC 


INC 

$FC 

C0C7 

A5 

FC 


LDA 

$FC 

C0C9 

C9 

C5 


CMP 

#$C5 

COCB 

DO 

EF 


BNE 

$COBC 

COCD 

4C 

31 

EA 

JMP 

$EA31 

CODO 

85 

FE 


STA 

$FE 

C0D2 

4C 

31 

EA 

JMP 

$EA31 

C005 

C8 



INY 


C0D6 

DO 

08 


BNE 

$COEO 

C0D8 

E6 

FC 


INC 

$FC 

CODA 

A5 

FC 


LDA 

$FC 

CODC 

C9 

C5 


CMP 

#$C5 

CODE 

FO 

F2 


BEQ 

$C0D2 

COEO 

B1 

FB 


LDA 

($FB)•Y 

C0E2 

C9 

OD 


CMP 

#$0D 

C0E4 

DO 

OA 


BNE 

$COFO 

C0E6 

E6 

C6 


INC 

$C6 

C0E8 

A6 

C6 


LDX 

$C6 

COEA 

9D 

77 

02 

STA 

$0277,X 

COED 

4C 

D5 

CO 

JMP 

$C0D5 

COFO 

C9 

00 


CMP 

#$00 

C0F2 

FO 

DE 


BEQ 

$C0D2 

C0F4 

C9 

85 


CMP 

#$85 

C0F6 

30 

07 


BMI 

$COFF 

C0F8 

C9 

8D 


CMP 

#$8D 

COFA 

10 

03 


BPL 

$COFF 

COFC 

4C 

31 

EA 

JMP 

$EA31 

COFF 

20 

D2 

FF 

JSR 

$FFD2 

Cl 02 

4C 

D5 

CO 

JMP 

$C0D5 

Cl 05 

00 



BRK 
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If you look at the first few lines of the machine-code listing, you'll 
see that we're invoking our old acquaintance, the interrupt, to take 
charge of everything by diverting the hardware interrupt vector (as 
discussed in Chapter 2) to look at our routine starting at location 
$C090 50 times a second before jumping to where it should have 
gone in memory in the first place. 

However, before we can activate the program, some data needs to 
be placed in memory, and that is the purpose of the following 
program: 

0 F0RJ=0T07 

1 READA:P0KE49664+Z+C.As READERs FOR1=1TOLEN(B$):D=A 
SC <MID$ <B$,1,1)):IFD=95THEND=13 

2 P0KE49665+Z+C•D 

3 Z=Z+1s NEXT 

4 C=C+1 

5 NEXTJ 

100 DATA133,NORTH ,134,SOUTH ,135,EAST .136,WEST , 

137,SCORE ,138,INVENT 

110 DATA139,SAVE ,140,LOAD 

READY. 

This looks at the data statements and POKEs the ASCII values of 
the keys into memory, followed by the ASCII value of the word we 
want that particular key to produce. In this particular instance we've 
used a selection of verbs that come in handy when playing adven¬ 
tures. The strange symbol to the right of each word is meant to be 
the left-arrow key, but my printer was up to its usual tricks and 
couldn't cope. This is to tell the machine-code program that, when 
(for example) FI is pressed we want the word NORTH to appear 
followed by a carriage return. If you don't want a carriage return 
performed, just leave out the left-arrow key after the particular word. 

Having got the words into memory, the program is activated with 
a SYS49272 call. After that, whenever FI is pressed the word 
NORTH will appear, followed by a carriage return. F3 produces the 
word SOUTH and a carriage return, and so on. The nice thing about 
this is not only that it makes the adventure easier to play, but the 
keywords can be re-defined in the middle of a program to cope with 
a variety of situations. 

To use your own words, just use different data statements, 
remembering the limit of 128 characters for ail eight keys. 
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Changing colours 


One of my very few criticisms of the Zork trilogy of games is that 
they use the most boring of background, border and text colours. 
They are in fact the ones displayed by the 64 at power-on, and I 
for one see enough of those without wanting to spend hours play¬ 
ing a game looking at the same drab colours. 

How nice it would have been if they'd incorporated the following 
short machine-code routine, which allows the user to select which 
background colour he wants, which border colour, and also which 
colour he wants the text to be displayed in. 

To SE = 49152 SEE = 49245 

20 s 

30 FORI = SE TO EE s READ A s POKE I . A s NEXT 
40 s 

50000 DATA 234.169.013.141,020,003,169,192.141,021 
,003,234.096,165 

50001 DATA 197.201,004,240,011,201,005,240,013,201 
,006.240.015,076 

50002 DATA 049,234,238,032,208,076,049,234,238,033 
,208,076,049.234 

50003 DATA 174,000,193,232,138,162,000,157,000.216 
,232,224,250,208 

50004 DATA 248,162,000.157,250,216,232,224,250,208 
,248,162,000.157 

50005 DATA 244,217,232.224,250.208,248,162,000,157 
,234,218.232,224 

50006 DATA 254.208.248.238,000.193,076,049,234,255 
READY. 

As before, this just POKEs the required number of bytes for the 
routine into memory: all 94 of them in fact. 

Again, for machine-code enthusiasts, amateur or professional, here 
is the machine-code listing: 

B* 

PC SR AC XR YR SP 
.s 97FE 30 00 00 00 F6 

COOO EA NOP 

C001 A9 OD LDA #*0D 
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C003 

8D 

14 

03 

STA 

$0314 

C006 

A9 

CO 


LDA 

#$C0 

C008 

8D 

15 

03 

STA 

$0315 

COOB 

EA 



NOP 


cooc 

60 



RTS 


COOD 

A5 

C5 


LDA 

$C5 

COOF 

C9 

04 


CMP 

#$04 

con 

FO 

OB 


BEQ 

$C01E 

C013 

C9 

05 


CMP 

#$05 

CO 15 

FO 

OD 


BEQ 

$C024 

C017 

C9 

06 


CMP 

#$06 

C019 

FO 

OF 


BEQ 

$C02A 

CO IB 

4C 

31 

EA 

JMP 

$EA31 

COIE 

EE 

20 

DO 

INC 

$D020 

C021 

4C 

31 

EA 

JMP 

$EA31 

C024 

EE 

21 

DO 

INC 

$D021 

C027 

4C 

31 

EA 

JMP 

$EA31 

C02A 

AE 

00 

Cl 

LDX 

$C100 

C02D 

E8 



INX 


C02E 

8A 



TXA 


C02F 

A2 

00 


LDX 

#$00 

C031 

9D 

00 

D8 

STA 

$D800,X 

C034 

E8 



INX 


C035 

EO 

FA 


CPX 

#$FA 

C037 

DO 

F8 


BNE 

$C031 

C039 

A2 

00 


LDX 

#$00 

C03B 

9D 

FA 

D8 

STA 

$D8FA,X 

C03E 

E8 



INX 


C03F 

EO 

FA 


CPX 

#$FA 

C041 

DO 

F8 


BNE 

$C03B 

C043 

A2 

00 


LDX 

#$00 

C045 

9D 

F4 

D9 

STA 

$D9F4,X 

C04B 

E8 



INX 


C049 

EO 

FA 


CPX 

#$FA 

C04B 

DO 

F8 


BNE 

$C045 

C04D 

A2 

00 


LDX 

#$00 

C04F 

9D 

EA 

DA 

STA 

$DAEA,X 

C052 

E8 



INX 


C053 

EO 

FE 


CPX 

#$FE 

C055 

DO 

F8 


BNE 

$C04F 

C057 

EE 

00 

Cl 

INC 

$C100 

C05A 

4C 

31 

EA 

JMP 

$EA31 

C05D 

00 



BRK 



Nothing too complicated here. Pressing FI changes the border col¬ 
our, F3 changes the background colour, and F5 changes the colour 
of every character displayed on the screen. 
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To invoke the routine, use SYS 49152. 


Before you use it, however, a word of warning. As the hardware 
interrupt vector operates at about 50 cycles per second, this means 
that this routine is checked every fiftieth of a second. Thus if you 
keep your finger on the key for more than a fraction of a second 
you'll probably witness about twenty changes in colour before you've 
finished. So either just stab at the key, or perhaps you'd like to try 
your hand at changing the program slightly so that it only allows 
one key press at a time. 


Improving screen displays 

I came across this routine in a magazine and thought it might be 
useful, so I duly typed it in. Lo and behold it didn't work, but in 
amended form it is now a very useful addition to the 64's repertoire 
of commands. 

Most computers have, hidden away somewhere in their Basic, the 
ability to make a section of the screen flash on and off. Alas, the 
64 has no such routine, and if you want to achieve this effect you 
have to write a cumbersome Basic routine yourself. This is all very 
well, but it does tie up the machine so that it can't do anything else 
while flashing. The following program overcomes this fault by us¬ 
ing our old friend the interrupt vector again. 

10 SE = 49152 sEE = 49335 

20 : 

30 FORI = SE TO EE s READ A s POKE I , A : NEXT 
40 s 

50000 DATA 001,003.007,006.010,000.002,000,255,000 
.255,017,016,255 

50001 DATA 024.040,076,072,178,169,006,141,009,192 
,032,138.173,032 

50002 DATA 247,183,165,021,208,238,165,020,172,009 
.192,217,009.192 

50003 DATA 176,228,153,000,192,206,009,192,240,006 
,032,253,174,076 

50004 DATA 024,192,133,254,120.169,073,141,020,003 
,169,192,141,021 

50005 DATA 003,088,096.169,216,133,252,169,000,133 
,251,168,173,000 

50006 DATA 192,208,001,200,185,002,192.133,253,172 
,006,192,240,019 

50007 DATA 169,040,024,101,251,133,251,176,006,136 
,208,244,076,117 


78 




50008 DATA 192.230,252,208.246,173,005.192,024,101 
,251,133,251,144 

50009 DATA 002,230,252,165,253,201,016,208,003,173 
,033,208,145,251 

50010 DATA 200,204,004,192,208,248,206,001,192,240 
,003,076,049,234 

50011 DATA 173.000,192,073,001,141,000,192,165,254 
,141,001,192,076 

50012 DATA 049,234,120,169,049,141,020,003,169,234 
,141,021,003,088 

50013 DATA 096,000 

READY- 


Or in machine code: 


B* 


PC SR AC XR YR SP 
•:97FE 30 00 00 00 F6 


cooo 

01 

03 


ORA 

($03,X) 

C002 

07 



??? 


C003 

06 

OA 


ASL 

$0A 

C005 

00 



BRK 


C006 

02 



??? 


C007 

00 



BRK 


C008 

FF 



??? 


C009 

00 



BRK 


COOA 

FF 



??? 


COOB 

11 

10 


ORA 

($10),Y 

COOD 

FF 



??? 


COOE 

18 



CLC 


COOF 

28 



PLP 


C010 

4C 

48 

B2 

JMP 

$B248 

C013 

A9 

06 


LDA 

#$06 

C015 

8D 

09 

CO 

STA 

$C009 

CO 18 

20 

8A 

AD 

JSR 

$AD8A 

C01B 

20 

F7 

B7 

JSR 

$B7F7 

C01E 

A5 

15 


LDA 

$15 

C020 

DO 

EE 


BNE 

$C010 

C022 

A5 

14 


LDA 

$14 

C024 

AC 

09 

CO 

LDY 

$C009 

C027 

D9 

09 

CO 

CMP 

$C009,Y 

C02A 

BO 

E4 


BCS 

$C010 

C02C 

99 

00 

CO 

STA 

$COOO,Y 

C02F 

CE 

09 

CO 

DEC 

$C009 

C032 

FO 

06 


BEQ 

$C03A 

C034 

20 

FD 

AE 

JSR 

$AEFD 

C037 

4C 

18 

CO 

JMP 

$C018 

C03A 

85 

FE 


STA 

$FE 


79 



C03C 

78 



SE1 


C03D 

A9 

49 


LDA 

#$49 

C03F 

8D 

14 

03 

STA 

$0314 

C042 

A9 

CO 


LDA 

#$C0 

C044 

8D 

13 

03 

STA 

$0315 

C047 

58 


CL I 


C048 

60 



RTS 


C049 

A9 

D8 


LDA 

#$D8 

C04B 

85 

FC 


STA 

$FC 

C04D 

A9 

00 


LDA 

#$00 

C04F 

85 

FB 


STA 

$FB 

C051 

A8 



TAY 


C052 

AD 

00 

CO 

LDA 

$C000 

C055 

DO 

01 


BNE 

$C058 

C057 

C8 



I NY 


C058 

B9 

02 

CO 

LDA 

$C002,> 

C05B 

85 

FD 


STA 

$FD 

C05D 

AC 

06 

CO 

LDY 

$C006 

C060 

FO 

13 


BEQ 

$C075 

C062 

A9 

28 


LDA 

#$28 

C064 

18 



CLC 


C065 

65 

FB 


ADC 

$FB 

C067 

85 

FB 


STA 

$FB 

C069 

BO 

06 


BCS 

$C071 

C06B 

88 



DEY 


C06C 

DO 

F4 


BNE 

$C062 

C06E 

4C 

75 

CO 

JMP 

$C075 

C071 

E6 

FC 


INC 

$FC 

C073 

DO 

F6 


BNE 

$C06B 

C075 

AD 

05 

CO 

LDA 

$C005 

C078 

18 



CLC 


C079 

65 

FB 


ADC 

$FB 

C07B 

85 

FB 


STA 

$FB 

C07D 

90 

02 


BCC 

$C0B1 

C07F 

E6 

FC 


INC 

$FC 

C081 

A5 

FD 


LDA 

$FD 

C083 

C9 

10 


CMP 

#$10 

C085 

DO 

03 


BNE 

$C08A 

C087 

AD 

21 

DO 

LDA 

$D021 

C08A 

91 

FB 


STA 

<$FB)O 

C08C 

C8 



I NY 


C08D 

CC 

04 

CO 

CPY 

$C004 

C090 

DO 

F8 


BNE 

$C08A 

C092 

CE 

01 

CO 

DEC 

$C001 

C095 

FO 

03 


BEQ 

$C09A 

C097 

4C 

31 

EA 

JMP 

$EA31 

C09A 

AD 

00 

CO 

LDA 

$C000 

C09D 

49 

01 


EOR 

#$01 

C09F 

8D 

00 

CO 

STA 

$C000 

C0A2 

A5 

FE 


LDA 

$FE 

C0A4 

8D 

01 

CO 

STA 

$C001 
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C0A7 

4C 

3^ 

EA 

JMP 

$EA31 

COAA 

78 



SEI 


COAB 

A9 

31 


LDA 

#$31 

COAD 

8D 

14 

03 

STA 

$0314 

COBO 

A9 

EA 


LDA 

#$EA 

C0B2 

8D 

15 

03 

STA 

$0315 

COBS 

58 



CL I 


C0B6 

60 



RTS 


C0B7 

00 



BRK 



As usual, the first program POKEs the various values into memory, 
the second one lets you see how the routine works. To use it, we 
must observe the following syntax: 

SYSI49171 )a,b,c,d,e,f 

where: 

a = first row (0-24) of text to be flashed. 

b = first column (0-39) of text to be flashed. 

c = number of characters after the first one that are going to be 
flashed. 

d = first colour that text will be displayed in. 

e = second colour that text will be displayed in before alternating bet¬ 
ween first and second colours. 

f=duration of flash in 50ths of a second. Thus if f = 50 the flash 
will occur once every second, or thereabouts. 

To turn the thing off you must use SYS49322. 

The routine can be used to highlight prompts, message displays, 
warnings, and so on. With a little bit of thought you can get some 
quite clever effects. 


And for the programmer 

So far we've concentrated on helping out the player of adventures 
more than the programmer, making displays brighter and 
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changeable, and keywords easy to use. But now, for the Basic 
adventure programmer, here is a renumber program. Renumbering 
a large Basic adventure can sometimes save up to half a kilobyte 
of memory, which comes in handy when you start pushing the 
machine's memory to the limits. 

10 SE = 50000 SEE = 51199 

20 : 

30 FORI = SE TO EE : READ A : POKE I , A s NEXT 
40 : 

50000 DATA 032.229,199,032.161.199.032,138,199,032 
,037,199,160,000 

50001 DATA 132.249,132,250,132.158,132.180,132.164 
,120,173,012,200 

50002 DATA 013.013,200.240,105.056,173,010,200,237 
,012,200,141,000 

50003 DATA 200,173,011,200,237,013,200,141,001,200 
,162,006,032,013 

50004 DATA 199,165,095.133,247,166,096,134,248,172 
,008,200,132,020 

50005 DATA 172,009,200,132,021,133,095,134,096,160 
,001,177,095,240 

50006 DATA 083,200,200,177,095,145,253,133,170,136 
,177,095,145,253 

50007 DATA 133,169.165,021,197,170,144,066,208,006 
,165,020,197,169 

50008 DATA 144,058,024,160,000,173,000,200,109,012 
,200,145,253,141 

50009 DATA 000,200,173.001,200,109,013,200,201,250 
,144,006,032,037 

50010 DATA 199,076,072,178,200,145,253,141,001,200 
230 249 208 002 

50011 DATA 230,250,032,235,198,177,095,170,136,177 
,095,024,144,163 

50012 DATA 169,255,133,164,165.249,005,250,208,002 
,088,096,165,095 

50013 DATA 133.251,165,096,133,252,173,007,200,205 
,011,200,208,008 

50014 DATA 173,006,200,205,010,200,240,091,176,045 
,169,002,133,158 

50015 DATA 162,010,032,013,199,032,107,199,165,252 
,197,177,208,004 

50016 DATA 165,251,197,176,176,065,162,000,230,158 
,230,158,032,013 

50017 DATA 199,176,007,162,000,032,096,199,240,065 
,024,144,143,162 

50018 DATA 000,032,013,199,102,165,032,107,199,165 
,177,197,248,208 

50019 DATA 004,165,176,197,247,176,004,036,165,048 
,227,230,158,162 
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50020 DATA 010,144.205,032,013.199.176,216,162,071 
,032,096,199,208 

50021 DATA 209,173.001,200,197,170,208,005,173,000 
,200,197,169,144 

50022 DATA 004,036,164,016.191,165,158,201,003,144 
,040,165,251,229 

50023 DATA 247,133,167,165.252,229,248,133,168,165 
,045,133,090,165 

50024 DATA 046,133,091,032,171,198,176,160,165,045 
,133,088,165,046 

50025 DATA 133,089,032,191,163,166,158,224,003,144 
,093,208,003,032 

50026 DATA 075.199,160,000,177,247,145,176,230,176 
,208,002,230,177 

50027 DATA 230,247,208,002,230,248,162,202,032,026 
,199,144,233.165 

50028 DATA 247,229,167,133,247,165,248,229,168,133 
,248,177,251,145 

50029 DATA 247,230,251,208,002,230,252,230,247,208 
.002,230,248.162 

50030 DATA 000,032,026,199,208,233,032,050,199,032 
,051,165,162,131 

50031 DATA 165,158,201,003,240,003,032,050,199,032 
,050,199,165,176 

50032 DATA 133,247,165,177,133,248,032,129,199,032 
,138,199,032,037 

50033 DATA 199.032,147,199,160,000,177,253,072,200 
,177,253,200.200 

50034 DATA 145,247,136,104,145,247,136,177,247,170 
,136,177,247,133 

50035 DATA 247,134.248,032.235,198.032,116,199,208 
,221,032,154,199 

50036 DATA 169,000,133,096,169,043,133,095,160,000 
,177.095,170,200 

50037 DATA 177,095,134,095,133,096,177,095,240,041 
,160,003,132,015 

50038 DATA 200,177,095,240,231,201,034,208,008,165 
,015,073,255,133 

50039 DATA 015,208,239,036,015,048,235,201,143,240 
,211,162,006,221 

50040 DATA 249,199,240,011,202,208,248,240,219,032 
,037,199,076,116 

50041 DATA 164,024,152,101,095,133,122,133,090,166 
,096,144,001,232 

50042 DATA 134,123,134,091,032,115,000,144,010,201 
,171,240,004,201 

50043 DATA 164,208,183,240.059,032,107,169,160,003 
f 032 ,194 9 198 9 176 

50044 DATA 073,160,001,032,194,198,176,017,165,095 
,072,165,096,072 

50045 DATA 032,019,166,104,133,096,104,133,095,176 


83 



,022,160,002,177 

50046 DATA 095,170,200,177,095,032,205,189,169,032 


,032,210,255,169 

50047 DATA 249,162,255,208,038,032,121,000,170,056 
,165,122,229,095 

50048 DATA 168,138,201,044,240,153,201,171,240,250 
,201,164,240,246 

50049 DATA 170,076,103,197,160,000,032,147,199,177 
,253,170.200,177 

50050 DATA 253,133,098,134,099,032,154,199.162,144 
,056,032.073,188 

50051 DATA 032,221,189,217,000,001,240,003,200,208 
248 165 122*229 

50052 DATA 090.133,159.152.056,229,159,133,146,240 
,098,162,077,032 

50053 DATA 249,198,036,146,048,043,165,045.133,088 
,165,046,133,089 


50054 DATA 162.000.032,249.198,162,002,032,249.198 
,160,000,177,088 

50055 DATA 164,146,145.088,165,088,208,002,198.089 
,198,088,162,045 

50056 DATA 032,064,199,208,233,240,046,165,122,133 
.088,165,123,133 

50057 DATA 089,162,000,032,249,198,162,002,032.249 
.198,056.169,000 

50058 DATA 229,146,133,146,164,146,177,088,160,000 
145 088•230 088 

50059 DATA 208,002,230,089,162,000,032*064,199,208 
,235,160,001,185 

50060 DATA 000,001,240,005,145,090,200,208,246,165 
,146.240,003,032 

50061 DATA 051,165,076,231,197,024,165,045,101,167 
,168,165,046.101 

50062 DATA 168,197,056,208,002,196,055,176,004,132 
.045,133,046,096 

50063 DATA 032,138,199.032,147,199,132,180,032,129 
,199,164,180,165 

50064 DATA 021,209,253,144,017,208,007,136,165,020 
,209.253,240,009 

50065 DATA 032,235,198,032,116,199,208,231,024,032 
,154.199,096.024 

50066 DATA 165,253,105,004,133,253,165,254,105,000 
,133,254,096,024 

50067 DATA 181,045,101,146,149,045,160,255,036,146 
,048,001.200,152 

50068 DATA 117,046,149,046,096,189,000,200,133,020 
,189,001,200,133 

50069 DATA 021,076,019,166,181,046,197,252,208,004 
,181,045,197,251 

50070 DATA 096,165,045,133,047,133,049,165,046.133 
,048,133,050,096 
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50071 DATA 056,181,045,229,167,149,045,181,046,229 
,168,149,046,096 

50072 DATA 165,089,213,046,208,004,165,088,213,045 
,096,162,000,032 

50073 DATA 082,199,162,004,024,181,247,101,167,149 
,247,181,248,101 

50074 DATA 168,149,248,096,165,096,213,177,208,004 
,165,095,213,176 

50075 DATA 096,165,095,133,176,165,096,133,177,096 
,165,189,208,002 

50076 DATA 198,190,198,189,165,189,005,190,096,165 
,249,133,189,165 

50077 DATA 250,133,190,096,169,000,133,253,169,160 
,133,254,096,165 

50078 DATA 001,041,254,133,001,096,165,001,009,001 
,133,001,096,032 

50079 DATA 006,226,032,218,199,140,010,200,141,011 
,200,032,006,226 

50080 DATA 032,218,199,140,012,200,141,013,200,032 
,006,226,032.218 

50081 DATA 199,140,006,200,141,007,200,032,006,226 
,169,171,032,255 

50082 DATA 174,032,017,226,032,221,199,140,008,200 
,141,009,200,096 

50083 DATA 032,014,226,032,107,169,165,021,164,020 
,096,162,007.189 

50084 DATA 241,199,157,006,200.202,016,247,096,000 
,000,255,249,100 

50085 DATA 000,010,000,000,155,138,167,137,141,203 
READY. 


Again, for those of you who want to see how it works rather than 
just typing it in and using it: 

B* 

PC SR AC XR YR SP 
.:97FE 30 00 00 00 F6 


C350 

20 

E5 

C7 

JSR 

$C7E5 

C353 

20 

A1 

C7 

JSR 

SC7A1 

C356 

20 

8A 

C7 

JSR 

$C7BA 

C359 

20 

25 

C7 

JSR 

$C725 

C35C 

AO 

00 


LDY 

#$00 

C35E 

84 

F9 


STY 

$F9 

C360 

84 

FA 


STY 

$FA 

C362 

84 

9E 


STY 

$9E 

C364 

84 

B4 


STY 

*B4 

C366 

84 

A4 


STY 

$A4 

C368 

78 



SEI 


C369 

AD 

OC 

C8 

LDA 

n 

00 

o 

n 


85 



C36C 

OD 

OD 

C8 

ORA 

$C80D 

C36F 

FO 

69 


BEQ 

$C3DA 

C371 

38 



SEC 


C372 

AD 

OA 

C8 

LDA 

$C80A 

C375 

ED 

OC 

C8 

SBC 

$C80C 

C378 

8D 

00 

CB 

STA 

$C800 

C37B 

AD 

OB 

C8 

LDA 

$CBOB 

C37E 

ED 

OD 

C8 

SBC 

$C80D 

C381 

8D 

01 

C8 

STA 

$CB01 

C384 

A2 

06 


LDX 

#$06 

C386 

20 

OD 

C7 

JSR 

$C70D 

C389 

A5 

5F 


LDA 

$5F 

C38B 

85 

F7 


STA 

$F7 

C38D 

A6 

60 


LDX 

$60 

C38F 

86 

F8 


STX 

$F8 

C391 

AC 

08 

C8 

LDY 

$CB08 

C394 

84 

14 


STY 

$14 

C396 

AC 

09 

C8 

LDY 

$C809 

C399 

84 

15 


STY 

$15 

C39B 

85 

5F 


STA 

$5F 

C39D 

86 

60 


STX 

$60 

C39F 

AO 

01 


LDY 

#$01 

C3A1 

B1 

5F 


LDA 

($5F),Y 

C3A3 

FO 

53 


BEQ 

$C3F8 

C3A5 

C8 



I NY 


C3A6 

C8 



I NY 


C3A7 

B1 

5F 


LDA 

($5F),Y 

C3A9 

91 

FD 


STA 

($FD) f Y 

C3AB 

85 

AA 


STA 

$AA 

C3AD 

88 



DEY 


C3AE 

B1 

5F 


LDA 

<$5F),Y 

C3B0 

91 

FD 


STA 

($FD) f Y 

C3B2 

85 

A9 


STA 

$A9 

C3B4 

A5 

15 


LDA 

$15 

C3B6 

C5 

AA 


CMP 

$AA 

C3B8 

90 

42 


BCC 

$C3FC 

C3BA 

DO 

06 


BNE 

$C3C2 

C3BC 

A5 

14 


LDA 

$14 

C3BE 

C5 

A9 


CMP 

$A9 

C3C0 

90 

3A 


BCC 

$C3FC 

C3C2 

18 



CLC 


C3C3 

AO 

00 


LDY 

#$00 

C3C5 

AD 

00 

C8 

LDA 

$C800 

C3CB 

6D 

OC 

C8 

ADC 

$C80C 

C3CB 

91 

FD 


STA 

C$FD)•Y 

C3CD 

8D 

00 

C8 

STA 

$C800 

C3D0 

AD 

01 

C8 

LDA 

$C801 

C3D3 

6D 

OD 

C8 

ADC 

$C80D 

C3D6 

C9 

FA 


CMP 

#$FA 

C3D8 

90 

06 


BCC 

$C3E0 

C3DA 

20 

25 

C7 

JSR 

$C725 
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C3DD 4C 48 B2 
C3E0 CB 
C3E1 91 FD 
C3E3 8D 01 C8 
C3E6 E6 F9 
C3E8 DO 02 
C3EA E6 FA 
C3EC 20 EB C6 
C3EF B1 5F 
C3F1 AA 
C3F2 88 
C3F3 B1 5F 
C3F5 18 
C3F6 90 A3 
C3F8 A9 FF 
C3FA 85 A4 
C3FC A5 F9 
C3FE 05 FA 
C400 DO 02 
C402 58 
C403 60 
C404 A5 5F 
C406 85 FB 
C408 A5 60 
C40A 85 FC 
C40C AD 07 C8 
C40F CD OB C8 
C412 DO 08 
C414 AD 06 C8 
C417 CD OA CB 
C41A FO 5B 
C41C BO 2D 
C41E A9 02 
C420 85 9E 
C422 A2 OA 
C424 20 OD C7 
C427 20 6B C7 
C42A A5 FC 
C42C C5 B1 
C42E DO 04 
C430 A5 FB 
C432 C5 BO 
C434 BO 41 
C436 A2 00 
C438 E6 9E 
C43A E6 9E 
C43C 20 OD C7 
C43F BO 07 
C441 A2 00 
C443 20 60 C7 
C446 FO 41 


JMP $B248 
INY 

STA <$FD)•Y 
STA $C801 
INC $F9 
BNE $C3EC 
INC $FA 
JSR $C6EB 
LDA <$5F>,Y 
TAX 
DEY 

LDA <$5F),Y 
CLC 

BCC $C39B 
LDA #$FF 
STA $A4 
LDA $F9 
ORA $FA 
BNE $C404 
CL I 
RTS 

LDA $5F 
STA $FB 
LDA $60 
STA $FC 
LDA $C807 
CMP $C80B 
BNE $C41C 
LDA $CB06 
CMP $C80A 
BEQ $C477 
BCS $C44B 
LDA #$02 
STA $9E 
LDX #$0A 
JSR $C70D 
JSR $C76B 
LDA $FC 
CMP $B1 
BNE $C434 
LDA $FB 
CMP $B0 
BCS $C477 
LDX #$00 
INC $9E 
INC $9E 
JSR $C70D 
BCS $C448 
LDX #$00 
JSR $C760 
BEQ $C489 
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C448 18 
C449 90 8F 
C44B A2 00 
C44D 20 0D C7 
C450 66 A5 
C452 20 6B C7 
C455 A5 B1 
C457 C5 F8 
C459 DO 04 
C45B A5 BO 
C45D C5 F7 
C45F BO 04 
C461 24 A5 
C463 30 E3 
C465 E6 9E 
C467 A2 OA 
C469 90 CD 
C46B 20 OD C7 
C46E BO D8 
C470 A2 47 
C472 20 60 C7 
C475 DO D1 
C477 AD 01 C8 
C47A C5 AA 
C47C DO 05 
C47E AD 00 CB 
C481 C5 A9 
C483 90 04 
C485 24 A4 
C487 10 BF 
C489 A5 9E 
C48B C9 03 
C48D 90 28 
C48F A5 FB 
C491 E5 F7 
C493 85 A7 
C495 A5 FC 
C497 E5 F8 
C499 85 A8 
C49B A5 2D 
C49D 85 5A 
C49F A5 2E 
C4A1 85 5B 
C4A3 20 AB C6 
C4A6 BO AO 
C4A8 A5 2D 
C4AA 85 58 
C4AC A5 2E 
C4AE 85 59 
C4B0 20 BF A3 
C4B3 A6 9E 


CLC 

BCC $C3DA 
LDX #$00 
JSR $C70D 
ROR $A5 
JSR $C76B 
LDA $B1 
CMP $F8 
BNE $C45F 
LDA $B0 
CMP $F7 
BCS $C465 
BIT $A5 
BMI $C448 
INC $9E 
LDX #$0A 
BCC $C438 
JSR $C70D 
BCS $C44B 
LDX #$47 
JSR $C760 
BNE $C448 
LDA $C801 
CMP $AA 
BNE $C483 
LDA $C800 
CMP $A9 
BCC $C489 
BIT $A4 
BPL $C448 
LDA $9E 
CMP #$03 
BCC $C4B7 
LDA $FB 
SBC $F7 
STA $A7 
LDA $FC 
SBC $FB 
STA $A8 
LDA $2D 
STA $5A 
LDA $2E 
STA $5B 
JSR $C6AB 
BCS $C44B 
LDA $2D 
STA $5B 
LDA $2E 
STA $59 
JSR $A3BF 
LDX $9E 


88 



C4B5 

EO 

03 


CPX 

#$03 

C4B7 

90 

5D 


BCC 

$C516 

C4B9 

DO 

03 


BNE 

$C4BE 

C4BB 

20 

4B 

C7 

JSR 

$C74B 

C4BE 

AO 

00 


LDY 

#$00 

C4C0 

B1 

F7 


LDA 

<$F7),Y 

C4C2 

91 

BO 


STA 

($B0) f Y 

C4C4 

E6 

BO 


INC 

$B0 

C4C6 

DO 

02 


BNE 

$C4CA 

C4C8 

E6 

B1 


INC 

$B1 

C4CA 

E6 

F7 


INC 

$F7 

C4CC 

DO 

02 


BNE 

$C4D0 

C4CE 

E6 

F8 


INC 

$F8 

C4D0 

A2 

CA 


LDX 

#$CA 

C4D2 

20 

1A 

C7 

JSR 

$C71A 

C4D5 

90 

E9 


BCC 

$C4C0 

C4D7 

A5 

F7 


LDA 

$F7 

C4D9 

E5 

A7 


SBC 

$A7 

C4DB 

85 

F7 


STA 

$F7 

C40D 

A5 

F8 


LDA 

$F8 

C4DF 

E5 

A8 


SBC 

$A8 

C4E1 

85 

F8 


STA 

$F8 

C4E3 

B1 

FB 


LDA 

($FB),Y 

C4E5 

91 

F7 


STA 

($F7).Y 

C4E7 

E6 

FB 


INC 

$FB 

C4E9 

DO 

02 


BNE 

$C4ED 

C4EB 

E6 

FC 


INC 

$FC 

C4ED 

E6 

F7 


INC 

$F7 

C4EF 

DO 

02 


BNE 

$C4F3 

C4F1 

E6 

F8 


INC 

$F8 

C4F3 

A2 

00 


LDX 

#$00 

C4F5 

20 

1A 

C7 

JSR 

$C71A 

C4F8 

DO 

E9 


BNE 

$C4E3 

C4FA 

20 

32 

C7 

JSR 

$C732 

C4FD 

20 

33 

A5 

JSR 

$A533 

C500 

A2 

83 


LDX 

#$83 

C502 

A5 

9E 


LDA 

$9E 

C504 

C9 

03 


CMP 

#$03 

C506 

FO 

03 


BEQ 

$C50B 

C508 

20 

32 

C7 

JSR 

$C732 

C50B 

20 

32 

C7 

JSR 

$C732 

C50E 

A5 

BO 


LDA 

$B0 

C510 

85 

F7 


STA 

$F7 

C512 

A5 

B1 


LDA 

$B1 

C514 

85 

F8 


STA 

$F8 

C516 

20 

81 

C7 

JSR 

$C7B1 

C519 

20 

8A 

C7 

JSR 

$C78A 

C51C 

20 

25 

C7 

JSR 

$C725 

C51F 

20 

93 

C7 

JSR 

$C793 

C522 

AO 

00 


LDY 

#$00 

C524 

B1 

FD 


LDA 

($FD) f Y 



C526 

48 



PHA 


C527 

C8 



I NY 


C528 

B1 

FD 


LDA 

<$FD>„Y 

C52A 

C8 



I NY 


C52B 

C8 



INY 


C52C 

91 

F7 


STA 

<$F7) f Y 

C52E 

88 



DEY 


C52F 

68 



PLA 


C530 

91 

F7 


STA 

<$F7>,Y 

C532 

88 



DEY 


C533 

B1 

F7 


LDA 

<$F7),Y 

C535 

AA 



TAX 


C536 

88 



DEY 


C537 

B1 

F7 


LDA 

<$F7> f Y 

C539 

85 

F7 


STA 

$F7 

C53B 

86 

F8 


STX 

$F8 

C53D 

20 

EB 

C6 

JSR 

$C6EB 

C540 

20 

74 

C7 

JSR 

$C774 

C543 

DO 

DD 


BNE 

$C522 

CS45 

20 

9A 

C7 

JSR 

$C79A 

C548 

A9 

00 


LDA 

#$00 

C54A 

85 

60 


STA 

$60 

C54C 

A9 

2B 


LDA 

#$2B 

C54E 

85 

5F 


STA 

$5F 

C550 

AO 

00 


LDY 

#$00 

C552 

B1 

5F 


LDA 

($5F) f Y 

C554 

AA 



TAX 


C555 

C8 



INY 


C556 

B1 

5F 


LDA 

($5F),Y 

C558 

86 

5F 


STX 

$5F 

C55A 

85 

60 


STA 

$60 

C55C 

B1 

5F 


LDA 

<$5F),Y 

C55E 

FO 

29 


BEQ 

$C589 

C560 

AO 

03 


LDY 

#$03 

C562 

84 

OF 


STY 

$0F 

C564 

C8 



INY 


C565 

B1 

5F 


LDA 

<$5F),Y 

C567 

FO 

E7 


BEQ 

$C550 

C569 

C9 

22 


CMP 

#$22 

C56B 

DO 

08 


BNE 

$C575 

C56D 

A5 

OF 


LDA 

$0F 

C56F 

49 

FF 


EOR 

#$FF 

C571 

85 

OF 


STA 

$0F 

C573 

DO 

EF 


BNE 

$C564 

C575 

24 

OF 


BIT 

$0F 

C577 

30 

EB 


BMI 

$C564 

C579 

C9 

8F 


CMP 

#$8F 

C57B 

FO 

D3 


BEQ 

$C550 

C57D 

A2 

06 


LDX 

#$06 

C57F 

DD 

F9 

C7 

CMP 

$C7F9,X 

C582 

FO 

OB 


BEQ 

$C58F 

90 









C584 

CA 



DEX 


C585 

DO 

F8 


BNE 

$C57F 

C587 

FO 

DB 


BEQ 

$C564 

C589 

20 

25 

C7 

JSR 

$C725 

C58C 

4C 

74 

A4 

JMP 

$A474 

C58F 

18 



CLC 


C590 

98 



TYA 


C591 

65 

5F 


ADC 

$5F 

C593 

85 

7A 


STA 

$7A 

C595 

85 

5A 


STA 

$5A 

C597 

A6 

60 


LDX 

$60 

C599 

90 

01 


BCC 

$C59C 

C59B 

E8 



INX 


C59C 

86 

7B 


STX 

$7B 

C59E 

86 

5B 


STX 

$5B 

C5A0 

20 

73 

00 

JSR 

$0073 

C5A3 

90 

OA 


BCC 

$C5AF 

C5A5 

C9 

AB 


CMP 

#$AB 

C5A7 

FO 

04 


BEQ 

$C5AD 

C5A9 

C9 

A4 


CMP 

#$A4 

C5AB 

DO 

B7 


BNE 

$C564 

C5AD 

FO 

3B 


BEQ 

$C5EA 

C5AF 

20 

6B 

A9 

JSR 

$A96B 

C5B2 

AO 

03 


LDY 

#$03 

C5B4 

20 

C2 

C6 

JSR 

$C6C2 

C5B7 

BO 

49 


BCS 

$C602 

C5B9 

AO 

01 


LDY 

#$01 

C5BB 

20 

C2 

C6 

JSR 

$C6C2 

C5BE 

BO 

11 


BCS 

$C5D1 

C5C0 

A5 

5F 


LDA 

$5F 

C5C2 

48 



PHA 


C5C3 

A5 

60 


LDA 

$60 

C5C5 

48 



PHA 


C5C6 

20 

13 

A6 

JSR 

$A613 

C5C9 

68 



PLA 


C5CA 

85 

60 


STA 

$60 

C5CC 

68 



PLA 


C5CD 

85 

5F 


STA 

$5F 

C5CF 

BO 

16 


BCS 

$C5E7 

C5D1 

AO 

02 


LDY 

#$02 

C5D3 

B1 

5F 


LDA 

<$5F) f Y 

C5D5 

AA 



TAX 


C5D6 

C8 



I NY 


C5D7 

B1 

5F 


LDA 

<$5F),Y 

C5D9 

20 

CD 

BD 

JSR 

SBDCD 

C5DC 

A9 

20 


LDA 

#$20 

C5DE 

20 

D2 

FF 

JSR 

$FFD2 

C5E1 

A9 

F9 


LDA 

#$F9 

C5E3 

A2 

FF 


LDX 

#$FF 

C5E5 

DO 

26 


BNE 

$C60D 

C5E7 

20 

79 

00 

JSR 

$0079 



C5EA 

AA 



TAX 


C5EB 

38 



SEC 


C5EC 

A5 

7A 


LDA 

$7A 

C5EE 

E5 

5F 


SBC 

$5F 

C5F0 

A8 



TAY 


C5F1 

8A 



TXA 


C5F2 

C9 

2C 


CMP 

#$2C 

C5F4 

FO 

99 


BEQ 

$C58F 

C5F6 

C9 

AB 


CMP 

#$AB 

C5F8 

FO 

FA 


BEQ 

$C5F4 

C5FA 

C9 

A4 


CMP 

#$A4 

C5FC 

FO 

F6 


BEQ 

$C5F4 

C5FE 

AA 



TAX 


C5FF 

4C 

67 

C5 

JMP 

$C567 

C602 

AO 

00 


LDY 

#$00 

C604 

20 

93 

C7 

JSR 

$C793 

C607 

B1 

FD 


LDA 

<$FD>,Y 

C609 

AA 



TAX 


C60A 

C8 



I NY 


C60B 

B1 

FD 


LDA 

<$FD).Y 

C60D 

85 

62 


STA 

$62 

C60F 

86 

63 


STX 

$63 

C611 

20 

9A 

07 

JSR 

$C79A 

C614 

A2 

90 


LDX 

#$90 

C616 

38 



SEC 


C617 

20 

49 

BC 

JSR 

$BC49 

C61A 

20 

DD 

BD 

JSR 

$BDDD 

C61D 

D9 

00 

01 

CMP 

$0100,Y 

C620 

FO 

03 


BEQ 

$C625 

C622 

C8 



INY 


C623 

DO 

F8 


BNE 

$C61D 

C625 

A5 

7A 


LDA 

$7A 

C627 

E5 

5A 


SBC 

$5A 

C629 

85 

9F 


STA 

$9F 

C62B 

98 



TYA 


C62C 

38 



SEC 


C62D 

E5 

9F 


SBC 

$9F 

C62F 

85 

92 


STA 

$92 

C631 

FO 

62 


BEQ 

$C695 

C633 

A2 

4D 


LDX 

#$4D 

C635 

20 

F9 

C6 

JSR 

$C6F9 

C638 

24 

92 


BIT 

$92 

C63A 

30 

2B 


BMI 

$C667 

C63C 

A5 

2D 


LDA 

$2D 

C63E 

85 

58 


STA 

$58 

C640 

A5 

2E 


LDA 

$2E 

C642 

85 

59 


STA 

$59 

C644 

A2 

00 


LDX 

#$00 

C646 

20 

F9 

06 

JSR 

$C6F9 

C649 

A2 

02 


LDX 

#$02 

C64B 

20 

F9 

06 

JSR 

$C6F9 

92 









C64E 

AO 

00 


LDY 

#♦00 

C650 

B1 

58 


LDA 

(♦58),Y 

C652 

A4 

92 


LDY 

♦92 

C654 

91 

58 


STA 

(♦58),Y 

C656 

A5 

58 


LDA 

♦58 

C658 

DO 

02 


BNE 

♦C65C 

C65A 

C6 

59 


DEC 

♦59 

C65C 

C6 

58 


DEC 

♦58 

C65E 

A2 

2D 


LDX 

#♦20 

C660 

20 

40 

C7 

JSR 

♦C740 

C663 

DO 

E9 


BNE 

♦C64E 

C665 

FO 

2E 


BEQ 

♦C695 

C667 

A5 

7A 


LDA 

♦7A 

C669 

85 

58 


STA 

♦58 

C66B 

A5 

7B 


LDA 

♦7B 

C66D 

85 

59 


STA 

♦59 

C66F 

A2 

00 


LDX 

#♦00 

C671 

20 

F9 

C6 

JSR 

♦C6F9 

C674 

A2 

02 


LDX 

#♦02 

C676 

20 

F9 

C6 

JSR 

♦C6F9 

C679 

38 



SEC 


C67A 

A9 

00 


LDA 

#♦00 

C67C 

E5 

92 


SBC 

♦92 

C67E 

85 

92 


STA 

♦92 

C680 

A4 

92 


LDY 

♦92 

C682 

B1 

58 


LDA 

(♦58),Y 

C684 

AO 

00 


LDY 

#♦00 

C686 

91 

58 


STA 

(♦58)«Y 

C68B 

E6 

58 


INC 

♦58 

C68A 

DO 

02 


BNE 

♦C68E 

C68C 

E6 

59 


INC 

♦59 

C68E 

A2 

00 


LDX 

#♦00 

C690 

20 

40 

C7 

JSR 

♦C740 

C693 

DO 

EB 


BNE 

♦C680 

C695 

AO 

01 


LDY 

#♦01 

C697 

B9 

00 

01 

LDA 

♦0100,Y 

C69A 

FO 

05 


BEQ 

♦C6A1 

C69C 

91 

5A 


STA 

(♦5A),Y 

C69E 

C8 



I NY 


C69F 

DO 

F6 


BNE 

♦C697 

C6A1 

A5 

92 


LDA 

♦92 

C6A3 

FO 

03 


BEQ 

♦C6A8 

C6A5 

20 

33 

A5 

JSR 

♦A533 

C6A8 

4C 

E7 

C5 

JMP 

♦C5E7 

C6AB 

18 



CLC 


C6AC 

A5 

2D 


LDA 

♦2D 

C6AE 

65 

A7 


ADC 

♦A7 

C6B0 

A8 



TAY 


C6B1 

A5 

2E 


LDA 

♦2E 

C6B3 

65 

A8 


ADC 

♦A8 


93 



C6B5 

C5 

38 


CMP 

$38 

C6B7 

DO 

02 


BNE 

$C6BB 

C6B9 

C4 

37 


CPY 

$37 

C6BB 

BO 

04 


BCS 

$C6C1 

C6BD 

84 

2D 


STY 

$2D 

C6BF 

85 

2E 


STA 

$2E 

C6C1 

60 



RTS 


C6C2 

20 

8A 

C7 

JSR 

$C78A 

C6C5 

20 

93 

C7 

JSR 

$C793 

C6C8 

84 

B4 


STY 

$B4 

C6CA 

20 

81 

C7 

JSR 

$C781 

C6CD 

A4 

B4 


LDY 

$B4 

C6CF 

A5 

15 


LDA 

$15 

C6D1 

D1 

FD 


CMP 

($FD) H Y 

C6D3 

90 

11 


BCC 

$C6E6 

C6D5 

DO 

07 


BNE 

$C6DE 

C6D7 

88 



DEY 


C6D8 

A5 

14 


LDA 

$14 

C6DA 

D1 

FD 


CMP 

<$FD),Y 

C6DC 

FO 

09 


BEQ 

$C6E7 

C6DE 

20 

EB 

C6 

JSR 

$C6EB 

C6E1 

20 

74 

C7 

JSR 

$C774 

C6E4 

DO 

E7 


BNE 

$C6CD 

C6E6 

18 



CLC 


C6E7 

20 

9A 

C7 

JSR 

$C79A 

C6EA 

60 



RTS 


C6EB 

18 



CLC 


C6EC 

A5 

FD 


LDA 

$FD 

C6EE 

69 

04 


ADC 

#$04 

C6F0 

85 

FD 


STA 

$FD 

C6F2 

A5 

FE 


LDA 

$FE 

C6F4 

69 

00 


ADC 

#$00 

C6F6 

85 

FE 


STA 

$FE 

C6F8 

60 



RTS 


C6F9 

18 



CLC 


C6FA 

B5 

2D 


LDA 

$2D,X 

C6FC 

65 

92 


ADC 

$92 

C6FE 

95 

2D 


STA 

$2D,X 

C700 

AO 

FF 


LDY 

#$FF 

C702 

24 

92 


BIT 

$92 

C704 

30 

01 


BMI 

$C707 

C706 

C8 



I NY 


C707 

98 



TYA 


C708 

75 

2E 


ADC 

$2E • X 

C70A 

95 

2E 


STA 

$2E • X 

C70C 

60 



RTS 


C70D 

BD 

00 

C8 

LDA 

$C800•X 

C710 

85 

14 


STA 

$14 

C712 

BD 

01 

C8 

LDA 

$C801•X 

C715 

85 

15 


STA 

$15 

C717 

4C 

13 

A6 

JMP 

$A613 


94 



C71A 

B5 

2E 

LDA 

$2E,X 

C71C 

C5 

FC 

CMP 

$FC 

C71E 

DO 

04 

BNE 

$C724 

C720 

B5 

2D 

LDA 

$2D,X 

C722 

C5 

FB 

CMP 

$FB 

C724 

60 


RTS 


C725 

A5 

2D 

LDA 

$2D 

C727 

85 

2F 

STA 

$2F 

C729 

85 

31 

STA 

$31 

C72B 

A5 

2E 

LDA 

$2E 

C72D 

85 

30 

STA 

$30 

C72F 

85 

32 

STA 

$32 

C731 

60 


RTS 


C732 

38 


SEC 


C733 

B5 

2D 

LDA 

$2D* X 

C735 

E5 

A7 

SBC 

$A7 

C737 

95 

2D 

STA 

$2D, X 

C739 

B5 

2E 

LDA 

$2E, X 

C73B 

E5 

A8 

SBC 

$A8 

C73D 

95 

2E 

STA 

$2E, X 

C73F 

60 


RTS 


C740 

A5 

59 

LDA 

$59 

C742 

D5 

2E 

CMP 

$2E,X 

C744 

DO 

04 

BNE 

$C74A 

C746 

A5 

58 

LDA 

$58 

C74B 

D5 

2D 

CMP 

$2D,X 

C74A 

60 


RTS 


C74B 

A2 

00 

LDX 

#$00 

C74D 

20 

52 C7 

JSR 

$C752 

C750 

A2 

04 

LDX 

#$04 

C752 

18 


CLC 


C753 

B5 

F7 

LDA 

$F7,X 

C755 

65 

A7 

ADC 

$A7 

C757 

95 

F7 

STA 

$F7 f X 

C759 

B5 

F8 

LDA 

$FB, X 

C75B 

65 

A8 

ADC 

$A8 

C75D 

95 

F8 

STA 

$FB,X 

C75F 

60 


RTS 


C760 

A5 

60 

LDA 

$60 

C762 

D5 

B1 

CMP 

$B11X 

C764 

DO 

04 

BNE 

$C76A 

C766 

A5 

5F 

LDA 

$5F 

C768 

D5 

BO 

CMP 

$B0, X 

C76A 

60 


RTS 


C76B 

A5 

5F 

LDA 

$5F 

C76D 

85 

BO 

STA 

$B0 

C76F 

A5 

60 

LDA 

$60 

C771 

85 

B1 

STA 

$B1 

C773 

60 


RTS 


C774 

A5 

BD 

LDA 

$BD 

C776 

DO 

02 

BNE 

$C77A 



C778 

C6 

BE 

DEC 

$BE 

C77A 

C6 

BD 

DEC 

$BD 

C77C 

A5 

BD 

LDA 

$BD 

C77E 

05 

BE 

ORA 

$BE 

C780 

60 


RTS 


C781 

A5 

F9 

LDA 

$F9 

C783 

85 

BD 

STA 

$BD 

C785 

A5 

FA 

LDA 

$FA 

C787 

85 

BE 

STA 

$BE 

C789 

60 


RTS 


C7BA 

A9 

00 

LDA 

#$00 

C78C 

85 

FD 

STA 

$FD 

C78E 

A9 

AO 

LDA 

#$A0 

C790 

85 

FE 

STA 

$FE 

C792 

60 


RTS 


C793 

A5 

01 

LDA 

$01 

C795 

29 

FE 

AND 

#$FE 

C797 

85 

01 

STA 

$01 

C799 

60 


RTS 


C79A 

A5 

01 

LDA 

$01 

C79C 

09 

01 

ORA 

#$01 

C79E 

85 

01 

STA 

$01 

C7A0 

60 


RTS 


C7A1 

20 

06 E2 

JSR 

$E206 

C7A4 

20 

DA C7 

JSR 

$C7DA 

C7A7 

8C 

OA C8 

STY 

$C80A 

C7AA 

8D 

OB C8 

STA 

$CBOB 

C7AD 

20 

06 E2 

JSR 

$E206 

C7B0 

20 

DA C7 

JSR 

$C7DA 

C7B3 

SC 

OC C8 

STY 

$C80C 

C7B6 

8D 

OD C8 

STA 

$C80D 

C7B9 

20 

06 E2 

JSR 

$E206 

C7BC 

20 

DA C7 

JSR 

$C7DA 

C7BF 

8C 

06 C8 

STY 

$CB06 

C7C2 

8D 

07 CB 

STA 

$C807 

C7C5 

20 

06 E2 

JSR 

$E206 

C7C8 

A9 

AB 

LDA 

#$AB 

C7CA 

20 

FF AE 

JSR 

$AEFF 

C7CD 

20 

11 E2 

JSR 

$E211 

C7D0 

20 

DD C7 

JSR 

$C7DD 

C7D3 

8C 

08 C8 

STY 

$C808 

C7D6 

80 

09 C8 

STA 

$CB09 

C7D9 

60 


RTS 


C7DA 

20 

OE E2 

JSR 

$E20E 

C7DD 

20 

6B A9 

JSR 

$A96B 

C7E0 

A5 

15 

LDA 

$15 

C7E2 

A4 

14 

LDY 

$14 

C7E4 

60 


RTS 


C7E5 

A2 

07 

LDX 

#$07 

C7E7 

BD 

FI C7 

LDA 

$C7F1 n X 

C7EA 

90 

06 C8 

STA 

$CB06,X 
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C7ED 

CA 

DEX 

C7EE 

10 F7 

BPL $C7E7 

C7F0 

60 

RTS 

C7F1 

OO 

BRK 


The syntax to be observed here is: 

SYS 50000,a,b,c-d 
where: 

a = first new line number. 
b = gap between new line numbers. 
c = first line number to be renumbered, 
d = last line number to be renumbered. 

If any of these are omitted the default values are used instead, which 
are respectively 100,10,0,63999. 

Finally, if any GOTOs or GOSUBs trundle off to a non-existent line, 
the line number will be displayed and the line referenced will be 
changed to 63999. 

So, rather like compiling a program, make sure that your program 
is in perfect working order before renumbering it. There's no such 
thing as an un-compiler, and you can't un-renumber a program 
either! 


Conclusion 

I hope you find some or all of these useful, and at the same time 
see how easy it is to produce a couple of short machine-code routines 
to enhance an adventure game. Little touches with the screen display 
can make all the difference, and if a player likes the display on one 
game he's more likely to come back and play another one. 

If you're in the business of selling adventure games, getting a player 
to buy another one is what it's all about, so a little time and care 
over the final product can turn an average game into a company 
winner! 
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Talking about playing adventure games, it's about time we got 
started. 
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5 

Getting Started 


Here and in Chapter 8 we are going to construct a very simple adven¬ 
ture. Simple, for the benefit of those of you who've never done this 
kind of thing before, and in two chapters to avoid you closing the 
book in disgust at the sight of an extremely long listing. 

Seriously, the adventure is divided into two chapters because we're 
going to split the game up into two parts. The first part will cover 
all the donkey work of drawing maps, making a vocabulary list, work¬ 
ing out what problems to have, and so on; the second part will be 
all the verbs: a similar approach to that used in the 'Exploring Adven¬ 
tures' series. However, this time it is being used to encourage 
newcomers and revive old memories for earlier readers before get¬ 
ting on to the main listing in the book - 'Enormous Cave' (a kind 
of sequel to 'Colossal Cave': the first and best). 


Graphics or not 

One of the first questions to be settled, and one which determines 
to a great extent how the game must be written, is whether or not 
to use graphics. 

As we saw in Chapter 2, there are many ways of incorporating 
graphics into a game. Personally I don't like graphical adventures, 
and so I've never written one. What's more, I don't intend to start 
now! However, the choice of graphics is very much up to the in¬ 
dividual, and in the game that we'll be using as our first example 
there is sufficient memory left over for you to put some graphics 
in in one form or another for a first experiment. 


Disk or tape 


When it comes to producing adventures for yourself, or for a circle 
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of friends, the decision isn't really that important. If you've all got 
disk drives, then use a disk as your storage medium. On the other 
hand, if you're a collection of tape users then there's little point us¬ 
ing a disk to store program and data. 

When writing my own adventures, I usually use the disk drive as 
a development tool, and then convert everything to tape later. The 
time saved is enormous. But when it comes to releasing the game, 
other forces come into play. According to various spokesmen, this 
mysterious thing called 'the market' doesn't want disk-based games, 
it wants tape-only ones. I think there's an equal market for both, 
but the people who buy programs for the shops (not the ones who 
buy the finished product) decide that they won't take disk games 
and that you won't buy them. 

So, from a commercial point of view, it is better to release (or sub¬ 
mit material to software houses with a view to publication) on tape. 
As a result there are I'm sure some excellent disk-only games that 
never get to see the light of day. Bigger adventures, longer passages 
of text, more devious problems to solve, and so on. They exist in 
the United States, so why they don't get released over here I'll never 
know. 

Still, apart from the commercial reasons there are others to be con¬ 
sidered as well. Although the bulk of the programming techniques 
involved remain the same, there are some vital differences, and for 
a first adventure I think we ought to stick to tape-only. It's easier 
for us both. 


Screen layouts 

Remembering the simple fact that whoever is going to be playing 
the game will be spending a lot of time looking at the screen, an 
attractive screen layout is essential. The mighty Infocom use the 
power-up colours of the 64, which to me seems a little bit lacking 
in imagination, to say the least. Dark backgrounds, so I'm told by 
people who play a lot of adventure games, give more character and 
feel to an underground scenario than do light backgrounds. As long 
as the display doesn't end up looking too garish, it's as well to add 
some colour to it too, just to liven things up a little. 

To use Infocom as an example again, when they display informa¬ 
tion on the screen they just scroll everything up and don't worry 
about clearing the screen, using different colours, or anything at all 
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really. Again, the choice of what to do is very much a personal one, 
although I like to see the screen cleared at a new location and the 
list of visible objects and obvious exits displayed as well. It saves 
having to type LOOK in whenever you arrive at a different location. 
Most good adventure players do that as a matter of course, but when 
you have to type LOOK in at every location it does get a mite tedious 
after a while. 

One stumbling block when designing screen layouts is the spacing 
of everything. If this book was laid out with a random number of 
spaces between each paragraph it would look a bit odd, wouldn't 
it? So, no matter how much space you decide to leave between, 
say, room descriptions and a list of visible objects, always keep it 
the same. 


Designing a map 

This is as important when designing a game as it is when solving 
one. My original maps tend to look a bit of a mess, quite honestly, 
but at least I can refer to them while going through the program 
so that I know where I am at any particular time. To try to write 
an adventure without first producing a map is ludicrous, if not 
impossible. 

A tidy version of the map for the game we're going to be playing is 
given on p.102. There are only 25 locations, to keep things nice and 
simple. 

There are no hard and fast rules for drawing a map. I usually decide 
on the number of locations that the game will have, start in the mid¬ 
dle of a sheet of paper and draw a lot of numbers to represent each 
location. As seems to be the case with things like this, the scale 
on one side of my sheet of paper is dramatically different from the 
scale on the other side, as I find myself running out of room, but 
that doesn't matter. As long as it's down on paper in one form or 
another, you'll be all right. 

You'll notice that there's a large gap between locations 15 and 16. 
This is becuse a magic word is needed to transport you from one 
location to the other, rather like the Scott Adams' game 'Pirate 
Adventure'. You’ll have to find the word out for yourself though! 

Connections between ail the other locations are fairly obvious: you 
can move reasonably freely between all the locations that are linked 
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1 

+ 

2 

+ 

3 

+ 

6 + S + 4 + 7 + 8 + 9 

+ 

14 10 

+ + 
13+12+11 
+ 

1 5 

16+17+18 

+ 

19 

+ 

24+21+20 

+ + 

25+23+22 


by plus (' +') signs. I said 'reasonably', because there are a number 
of problems to surmount along the way. This, having drawn up a 
simple map, is what we must turn our attention to next. 


Designing the problems 

This is probably the most crucial part of designing an adventure 
game. It is usually based on the map that we've just drawn, and 
to a very large extent it influences the next section that we're going 
to look at, namely drawing up a vocabulary list of understandable 
words. 

Make a game too hard, and people will soon get fed up with it. Make 
it too simple, and people will solve it in five minutes flat. Somewhere 
in between is a fine dividing line between very hard and very easy, 
and that's what you've got to aim at. Similarly, you've got to decide 
how many problems to have. Too many or too few is just as bad 
as making them too easy or too hard, so it is usually a good idea 
to stick to a ratio of one problem to every three or four locations. 
They don't need to be spaced out equally, but you must give the 
player the chance to progress. 
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For this particular game, there are just eight main problems to solve 
(I told you it was a simple game). Going back to the map, I usually 
put a circle around those locations that are going to have problems 
contained within them, and then alongside the map write down a 
brief description of what those problems are. 

Locations one to three are all set inside your London flat, so the 
first problem is how to get out of the flat at location three. Having 
done that, there is a policeman at location four, so our second pro¬ 
blem is dealing with him. Locations four to ten are all on the streets 
just outside your flat, and problem number three arises at the bank, 
where you've got to use your cashcard to draw out some money. 
Locations eleven to fifteen are all in the local library, and problem 
number four involves getting into the library in the first place. 

Problem number five is set in the library, where you have to search 
for a specific book. This helps you solve problem number six, which 
is how to get from location fifteen to location sixteen and back again. 
Locations sixteen to twenty-five are all set on Hampstead Heath, 
and problem number seven arrives at location eighteen, where there's 
a man selling ice-creams. You've got to get an ice-cream from him. 

The eighth and final problem is at location twenty-five, where you 
find a small child holding your wallet. Since retrieving the wallet is 
the purpose of the game, you've got to get it back from him. 
However, being an adventure child he can run faster than you and 
so you've got to bribe him in some way. Having got the wallet, that's 
the end of the game! 

In this game most of the solutions to the various problems are quite 
obvious really, but as the purpose of the program is not to be a dif¬ 
ficult adventure but to show you how a small game is put together, 
this is of no importance. 

Having sorted out the map and the problems, and got a rough idea 
of where each location lies, we can now go on to work out the 
vocabulary list for the game. 


Vocabulary lists 

Another very important feature of any adventure game is the list 
(and number) of words that the program can recognise and act upon. 
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As The Lost Wallet' is a very small game, it doesn't have the largest 
of vocabularies. Nevertheless it can understand and react to around 
65 words. So how do we generate this list of words in the first place? 

Taking the verbs first, a lot of them will be common ones that oc¬ 
cur in just about every adventure game. Words such as GET and 
DROP, movement commands like GO, or more simply N, S, E and 
W, INVENTORY (to see what you're carrying), LOOK and 
REDESCRIBE (to let you read a room description that might have 
scrolled off the screen), SEARCH and EXAMINE (to help you find 
out something more about an object or room) and more besides, 
are all to be found in the majority of adventure games. 

A large number of words will come from the room descriptions 
themselves, so a read through those will probably bring some more 
verbs to light. For instance, in location nine in 'The Lost Wallet' 
you're told that there's a cashpoint card, so it is reasonable to assume 
that players will type in INSERT CARD or something like that. Thus 
another verb becomes INSERT. Part of the action takes place in a 
library, so you can bet your life that people will type in READ BOOK, 
and so READ is added to our list of understandable words. So it 
goes on, and for this game at least I ended up with a list of 36 verbs, 
as follows: 

QUIT 
HELP 
SCORE 
INVENTORY 
LOOK 

REDESCRIBE 
GO 

JUMP 
N 
S 
E 

W 
GET 
DROP 
OPEN 
CLOSE 
CROSS 
EXAMINE 


FIND 

WEAR 

DISCARD 

BUY 

READ 

TAKE 

PICK 

INSERT 

CHASE 

LOAD 

SAVE 

TALK 

GIVE 

OFFER 

SEARCH 

LISTEN 

ENTER 

AWAY 


You'll have noticed that there are no rude words in that list: this 
is a family book, after all. Sadly, however, people will type in the 
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odd (sometimes very odd) swear word, and so the program should 
really be able to respond to them. There are ways of doing that 
without having the words resident in the listing, and we'll look at 
that in Chapter 8. 

Having got all the verbs, we now want a list of objects. Again, these 
should be obvious enough from the problems, solutions to problems, 
and room descriptions. If one of the problems involves opening a 
door, you will probably need an object like a KEY to do it. If someone 
types in GO NORTH, then NORTH becomes another object. If you 
have to insert a card into the magic money machine to acquire some 
funds, then CARD becomes yet another object. 

The complete list of objects for this adventure is as follows: 


N 

S 

E 

W 

KEY 

NORTH 

SOUTH 

EAST 

WEST 

RECORD 

DOOR 

WALLET 

ROAD 

LIBRARY 


BANK 

CARD 

MONEY 

TICKET 

ICE-CREAM 

POLICEMAN 

CHILD 

KID 

FLAT 

DISGUISE 

ROOM 

BOOK 

RUBBISH 


Now then, all these have to be stored in the program somewhere, 
as indeed do all the room descriptions, so we'll look at the first part 
of our adventure game listing now. 

3999 REM START OF ALL ROOM DESCRIPTIONS 

4000 PRINT"YOU ARE IN THE BEDROOM OF YOUR FLAT IN 
4002 PRINT"THE HEART OF LONDON. THROUGH THE 
4004 PRINT 11 WINDOW YOU CAN SEE THE BUSY STREET 

4006 PRINT"BELOW, AND A POLICEMAN STROLLING AROUND 

4007 PRINT"KEEPING AN EYE ON THINGS (AND YOU!) 

4008 PRINT:PRINT"PERHAPS YOU'RE WANTED FOR SOMETHI 
NG? 

4009 PRINT:PRINT"4N EXIT LEADS SOUTH TO THE FRONT 
ROOM.":G0T03002 

4010 PRINT"YOU ARE IN THE FRONT ROOM OF YOUR FLAT. 

4011 PRINT"SHELVES OF BOOKS LINE THE WALLS, AND A 
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4012 PRINT 11 JUMBLE OF RECORDS HIDES AN UNTIDY PILE 

4013 PRINT"OF DIRTY CLOTHES. 

4014 PRINTS PRINT"/IN OLD SETTEE SITS OVER A BRIMY C 
ARPET 

4015 PRINT"AND YOUR STEREO KEEPS PLAYING THE SAME 

4016 PR I NT 11 RECORD OVER AND OVER AGAIN. 

4017 PRINTsPRINT"DOORS LEAD OFF TO NORTH AND SOUTH 
."s G0T03002 

4020 PRINT"YOU ARE IN THE FRONT HALLWAY OF YOUR 

4021 PRINT"FLAT. A DOOR LEADS BACK TO THE UNTIDY 

4022 PRINT"FRONT ROOM, AND BEFORE YOU LIES AN 

4023 PRINT"IMPOSING WOODEN DOOR, LETTER BOX 

4024 PRINT"RESPLENDENT WITH LETTER CATCHER AND 

4025 PRINT"UNPAID BILLS. THROUGH THE FROSTED 

4026 PRINT"GLASS IN THE TOP HALF OF THE DOOR, YOU 

4027 PRINT"CAN STILL SEE A POLICEMAN WALKING 
ABOUT. 

4028 PRINTS PRINTS COLLECTION OF OLD RUBBISH LIES 
AT YOURFEET."s G0T03002 

4030 PRINT"YOU ARE OUTSIDE YOUR FLAT. THE ROAD IS 

4031 PRINT"SO BUSY THAT YOU HAVEN'T A HOPE OF 

4032 PRINT"CROSSING IT, AND SO YOU MUST GO EAST OR 

4033 PRINT"WEST ALONG THE PAVEMENT, DODGING THE 
OBVIOUS AS YOU WALK. " s IFD0*=0THEN4036 

4034 PRINT:PRINT"»S YOUR DOOR SLAMS SHUT BEHIND YO 
U, YOU MUST DECIDE WHAT TO DO. 

4035 F0RI“lT02000s NEXT s D0«=0 

4036 IFWD™0THEN4038 

4037 PRINTSPRINT"THE POLICEMAN DOESN'T RECOGNISE Y 
OU, ANDBIDS YOU GOOD-DAY.»sG0T03002 

4038 PRINTsPRINT"0H NO, THE POLICEMAN SEES YOUR FA 
CE AND 

4039 PRINT"SAYS 'YOU'RE NICKED, MY SON'. HE MARCHE 
SYOU OFF BY THE EAR."sE0«1sG0T03002 

4040 PRINT"YOU ARE TO THE WEST OF YOUR FLAT, 

4041 PRINT"WALKING ALONG AN UNTIDY PAVEMENT. IRON 

4042 PRINT"RAILINGS TO THE NORTH OBSCURE THE VIEW 

4043 PRINT"INTO OTHER FLATS, WHILE TO THE SOUTH 

4044 PRINT"THE FLOW OF TRAFFIC IS AS HEAVY AS EVER 
.":G0T03002 

4050 PR I NT 11 YOU HAVE REACHED THE END OF THE STREET. 
4052 PRINT"SINCE YOUR MUMMY TOLD YOU NEVER TO 
4054 PRINT"CROSS THE ROAD BY YOURSELF, YOU CAN GO 
NO FURTHER."sG0T03002 

4060 PRINT"YOU ARE TO THE EAST OF YOUR FLAT. FOR 

4061 PRINT"S>U£ SIGNS LITTER THE GARDENS TO THE 

4062 PRINT"NORTH, BUT WITH THE POLICEMAN NEARBY 

4063 PRINT"THERE WOULDN'T BE MUCH POINT PINCHING 

4064 PRINT"ONE."sPRINT:PRINT"IN THE DISTANCE YOU C 
AN MAKE OUT THE 

4065 PRINT"TOWN HIGH STREET."8G0T03002 
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4070 PRINT 11 yOU ARE ON THE ROAD LEADING FROM YOUR 

4072 PRINT"FLAT TO THE CENTRE OF TOWN. YOUR BANK 

4073 PRINT"LIES TO THE EAST."aG0T03002 

4080 PRINT"YOU ARE OUTSIDE YOUR BANK. FOR ONCE 

4081 PRINT"THE HOLE-IN-THE-WALL MACHINE IS WORKING 
,INVITING YOU TO ACQUIRE MONEY." 

4082 PRINTbPRINT"YOU KNOW YOU DARE NOT ENTER THE B 
ANK, 

4084 PRINT"SO YOU MUST CHOOSE BETWEEN USING THE 

4085 PRINT"MACHINE OR WALKING ON."aG0T03002 

4090 PRINT"YOU ARE MID-WAY BETWEEN THE BANK AND 

4091 PR I NT "THE OLD LIBRARY. yQBOVE THE LIBRARY IS 
A 

4092 PRINT"CCU3CLOCK, WHICH TELLS YOU THAT YOU'VE 
NOW 

4094 PRINT"BEEN PLAYING THIS GAME FOR JUST ABOUT 

4095 A*=MID*<TI*,1,2>aB$=MID$<TI$,3,2>:C*=MID*<TI* 
,5,2) 

4096 PRINTA^" HOURS, "B*" MINUTES AND "C*" SECONDS 

4097 PRINT:PRINT"BETTER GET ON WITH IT AND DO SOME 
THING."aB0T03002 

4100 PRINT"YOU ARE OUTSIDE THE IMPOSING DOOR OF 
4102 PRINT"THE OLD LIBRARY. INSIDE, THROUGH THE 
4104 PRINT"CLEAN WINDOWS, YOU CAN SEE THE FROSTY 

4106 PRINT"FISURE OF THE LIBRARIAN, AND ROW UPON 

4107 PRINT"ROW OF BOOKS. BOW THEN, WHERE'S YOUR 
LIBRARY TICKET?"a G0T03002 

4110 PRINT"YOU ARE INSIDE THE LIBRARY, TRYING TO 

4111 PRINT"TIPTOE PAST THE LIBRARIAN ON CREAKING 

4112 PRINT"FLOORBOARDS. 

4113 PRINT a PRINT"4LL AROUND YOU ARE MASSIVE NUMBER 
S OF 

4114 PRINT"MUSTY OLD BOOKS."BG0T03002 

4120 PRINT"YOU ARE IN THE CENTRE OF THE LIBRARY. 

4121 PRINT a PRINT"TO NORTH AND SOUTH LIE OLD STAIRW 
ELLS, 

4122 PRINT"LEADING TO RARELY VISITED PARTS OF THE 

4123 PRINT"LIBRARY. COBWEBS HANG OFF THE CEILING, 

4124 PRINT"AND THE DUST SEEMS TO COVER EVERYTHING. 
"a G0T03002 

4130 PRINT"YOU ARE IN THE NORTHERN PART OF THE 
LIBRARY." 

4132 PRINTaPRINT"SPIDERS SCURRY AND DART ABOUT AT 
YOUR 

4134 PRINT"UNEXPECTED INTRUSION INTO THEIR DOMAIN, 

4135 PRINT"AND LITTLE RUSTLING NOISES AND THE SOUN 
D 

4136 PRINT"CCU30F SCAMPERING FEET SEEMS TO BE IN E 
VERY CORNER."a G0T03002 

4140 PRINT"YOU ARE IN THE SOUTHERN PART OF THE 
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LIBRAR Y. 

4141 PRINTS PRINT"THROUGH PANELLED WINDOWS YOU CAN 
SEE 

4142 PR I NT "AN IMPOSING VIEW TO THE SOUTH AND WEST, 
4144 PRINT"ALTHOUGH HOW YOU GET TO IT IS A BIT OF 

4146 PRINT"A MYSTERY. MJSTY, DUSTY B00K8 COVER 

4147 PRINT"THE WALLS, AND I'M SURE THE LIBRARIAN 

4148 PRINT"MUST BE PEERING OVER YOUR SHOULDER BY 
NOW!"s G0T03002 

4150 PRINT"YOU ARE ON THE TOP OF HAMPSTEAD HEATH." 

4151 PRINT:PRINT"OVERHEAD FLUFFY WHITE CLOUDS FLOA 
T 

4152 PRINT"BENEATH A CLEAR BLUE SKY, WHILE TO THE 

4153 PRINT"EAST A DUSTY TRACK DISAPPEARS INTO A 

4154 PRINT"HOST OF TREES AND RHODODENDRONS. 

4156 PRINT:PRINT“GREEN GRASS LIES LUXURIANT ON EVE 
RY 

4157 PRINT"SIDE, AND ALL-IN-ALL THE WORLD APPEARS 
TO BE A HAPPY PLACE.":G0T03002 

4160 PRINT"YOU ARE ON A DUSTY TRACK HEADING ROUGHL 
Y 

4161 PRINT"CCUDEAST-WEST. PEOPLE ARE EXERCISING T 
HEIR 

4162 PRINT"DOGS, KITES ARE FLYING ALL AROUND, AND 

4163 PRINT"IN THE DISTANCE YOU CAN HEAR THE CHIMES 

4164 PRINT"OF AN ICE-CREAM VAN.":G0T03002 

4170 PRINT"YOU ARE IN A DUST BOWL IN THE MIDDLE OF 
THE HEATH■ 11 sPRINT 

4171 PRINT"KIDS ARE RUNNING ABOUT ALL OVER THE 

4172 PRINT"PLACE, AND IN THE CENTRE OF THE BOWL IS 

4173 PRINT"AN ICE-CREAM VAN."aPRINT8 PRINT"4 TRACK 
HEADS DOWN TOWARDS THE SOUTH."BG0T03002 

4ISO PRINT"YOU ARE ON A TRACK HEADING ROUGHLY 
NORTH-SOUTH."a PRINT 

4181 PRINT"TREES AND BUSHES SURROUND YOU ON ALL 

4182 PRINT"SIDES, MAKING IT DIFFICULT TO MOVE OFF 

4183 PRINT"THE PATH."aG0T03002 

4190 PRINT"YOU ARE TO THE EAST OF A LUXURIANT GLAD 
EOF BUSHES AND TREES. 11 

4192 PRINT a PRINTS DUSTY OLD TRACK HEADS WEST, INT 
0 THE 

4194 PRINT"MIDDLE OF THIS BLADE, BUT IT SOON SPLIT 
S 

4195 PRINT"CCU3UP INTO A NUMBER OF SEPARATE PATHS. 
"a G0T03002 

4200 PRINT"YOU ARE IN A DARK, TANGLED GLADE OF 
4202 PRINT"BRIARS AND BUSHES. PATHS LEAD OFF IN 
ALL DIRECTIONS."aG0T03002 
4210 60T04200 
4220 G0T04200 
4230 G0T04200 
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4240 PRINT"YQU ARE TO THE WEST OF THE GLADE, IN AN 

4242 PRINT"UNEXPECTED OPENING. THE HEATH SEEMS TO 

4243 PRINT"BE QUITE CLEAR ONCE AGAIN, AND HORDES 

4244 PRINT"OF SCREAMING KIDS RUN AROUND EVERYWHERE 
■ 

4243 PRINT"WHAT IT IS TO BE YOUNG!"»IFWB®1THEN3002 

4246 PRINTSPRINT"ONE OF THEM APPROACHES YOU, CARRY 
ING A WALLET. 

4247 PRINTS PRINT"'IS THIS YOURS, MISTAH7' HE SHOUT 
S. 

4248 PRINT"'WELL, YOU CAN'T HAVE IT', AND HE 

4249 PRINT"STANDS JUST OUT OF ARM'S REACH."sG0T030 
02 

4999 REM DATA FOR ALL THE LOCATIONS, IN NORTH,SOUT 
H,EAST,WEST FORMAT 

5000 DATAO,2,0,0,1,3,0,0,2,4,0,0,3,0,7,5,0,0,4,6,0 
, 0,5,0,0,0, G, 4,0,0,9,7 

5002 DATAO,10,0,8,9,11,0,0,10,0,0,12,0,0,11,13,14, 
15,12,0,0,13,0,0,13,0,0,0 

5004 DATAO,0,17,0,0,0,18,16,0,19,0,17,18,20,0,0,19 

,0,0,21,21,22,20,24,21,21,21,23 

5006 DATA24,21,22,25,21,23,21,21,0,0,23,0 

5008 DIMPX(25,3)sFORI=1T025sFORJ=0T03sREADPX<I,J)s 

NEXTJ,I 

5010 DATAQUIT,HELP,SCOR,INVE,LOOK,REDE,GO,JUMP,N,S 
,E,W,GET,DROP,OPEN,CLOS 

5012 DATACROS,EXAM,FIND,WEAR,DISC,BUY,READ,TAKE,PI 
CK,INSE,CHAS,LOAD,SAVE 

5014 DATATALK, 61VE, OFFE, SEAR, LI ST, ENTE, AWAY 
5016 NV=36» DIMVB*(NV)sFOR1=1TONVsREADVBS(I)sNEXT 

5020 DATAN,S,E,W,KEY,NORT,SOUT,EAST,WEST,RECO,DOOR 
,WALL,ROAD,LIBR,BANK,CARD,MONE 

5021 DATATICK,ICE-,POLI,CHIL,KID,FLAT,DISG,ROOM,BO 
OK,RUBB 

5030 NN“27sDIMNO*(NN)sFQRI=lTONNsREADNO*(I)sNEXTsD 
IM0B7. <NN) ,OB*<NN> 

5040 DATA"WORTH","SOUTH","EAST","WEST" 

5042 F0RI=0T03sREADDD*(I)s NEXT 

5050 DATAN,S,E,W,A SMALL KEY,N,S,E,W,A RECORD,A SO 
LID DOOR,YOUR WALLET!,A ROAD 

5052 DATATHE LIBRARY,THE BANK,YOUR CASHCARD,SOME M 
ONEY,YOUR LIBRARY TICKET 

5054 DATAAN ICE-CREAM,A POLICEMAN,A CHILD,A KID,YO 
UR FLAT,A HAIRY DISGUISE 

5056 DATAYOUR ROOM,AN OLD BOOK,SOME RUBBISH 
5060 FORI^lTONNiREADOB*(I) t NEXT 

5070 DATAO,0,0,0,0,0,0,0,0,2,0,0,0,0,0,24,0,6,0,4, 
25,0,0,0,0,0,0 

5072 FORI°lTONNtREADOBX(I)(NEXT 
5099 RETURN 

10000 P0KE53281,7:P0KE53280,9« PRINTCHR*(14)iPRINTC 
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HR*<8>iPRINT“CCLR,BLK3TME LOST UALLET ! 

10002 F0RI=iT016aPRINT"ECBMY3";sFQRJ=lT050sNEXTJ,I 
10004 PRINTsPRINT"0NE DAY, WHILST STROLLING AROUND 
IN 

10006 PRINT"LONDON DOING SOME SHOPPING, YOU MUST 
10008 PRINT"HAVE LOST YOUR WALLET. 

10010 PRINT:PRINT"#HEN YOU GOT HOME, IT WAS NO LON 
GER 

10012 PRINT"THERE. OF COURSE, YOU CAN'T REMEMBER 
10014 PRINT"WHERE YOU DROPPED IT, AND SO THE GOAL 
10016 PRINT"IN THIS MINI-ADVENTURE IS TO FIND YOUR 
WALLET AGAIN." 

10018 PRINTSPRINT"PLEASE HANG ON WHILE I READ SOME 
DATA IN." 

10020 RETURN 

20000 F0RI»491S2T049162s READAs POKEI,As NEXTs RETURN 

20001 DATA 104,104,32,253,174,32,235,183,76,166,16 
8 

60000 Ch*=""s 

60002 PRINT"CRVS,BLK3*COFF,CL3"? 

60005 GETZ*sIFZ*=""THEN60005 

60010 Z-ASC(Z*> aIFZ>95THEN60005 

60080 ZL=LEN(CM*)sIFZL>27THEN60110 

60100 IFZ>31THENCM*=»CM*+Z*s PRINTZ*|s 60T060002 

60110 IFZ=> 13ANDZLTHENPRI NT " "s RETURN 

60120 IFZ=20ANDZLTHENCM*=LEFT*(CM*,ZL-1)sPRINTZ*» 

60140 G0T060002 

READY. 


The room descriptions run from lines 3999-4249, and should be fair¬ 
ly obvious. Each new location starts ten lines on from the last one, 
so room one starts at line 4000, room two at 4010, room three at 
.4020, and so on. Lines 4090-4097 have you standing between the 
library and a bank, and tell you how long you've been playing the 
game. A little real-time feature there. 

Lines 4999 to 5008 contain the data for all the locations, and tell 
you which way you can move from the various locations. The 
variable P% in line 5008 controls this information, so if, for exam¬ 
ple, P%(1,0) was equal to zero, then you couldn't go north from 
location one. If P%(1,1) was equal to two, then you could go south 
to location two from location one. P%(1,2) and P%(1,3) control 
whether or not you can go east or west respectively from location 
one. If P%(16,2) was equal to seventeen, then you could go east 
to location seventeen from location sixteen, and thus all our 
movements around the game are controlled. 
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Lines 5010 to 5030 contain the list of verbs and nouns in four letter 
format. We'll see the reason for this in the next chapter, when we 
discuss various parsers. Lines 5040 to 5042 contain the words 
NORTH, SOUTH, EAST and WEST, and are used when the room 
descriptions are printed up. Lines 5050 to 5060 contain lengthier 
descriptions for the nouns. It's no use informing the player that he 
can see a POLI when we want him to see a POLICEMAN: he might 
think the game involved parrots. 

The last little bit of data, in lines 5070 to 5072, tells us where each 
object starts in the game. A zero tells us that the object doesn't yet 
exist, or hasn't been found by the player, and a number (e.g. 24) 
tells us that that particular object starts in location twenty-four. 


Conclusion 

All that data will be used again in Chapter 8, so keep it safe 
somewhere for now: don't save over it whatever you do. 

Well, we've started anyway, but there's a lot more needed yet before 
we can complete our adventure. The next two chapters concern 
themselves with some of the mechanics of the game, but just before 
that a few words about working as part of a team. 

The great games, like 'Zork', 'The Hobbit', and others, are all created 
by a team of authors, not just one lone programmer. You might like 
to try your hand at that. You might know someone who is gifted 
with words, you might be a good programmer, and if you're going 
to use graphics you might have an artistic friend. Why not pool your 
talents? Three heads are better than one. 

I've worked with my brother on a couple of adventures now, one 
we finished very quickly, the other we regrettably didn't (although 
we made it in the end)! The finished result was much better than 
anything either of us could have done by ourselves, so why not give 
it a try? You never know what you might come up with. 
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6 

Parsers 


First of all, what precisely is a 'parser'? In every adventure game 
there must be some part of the program that allows the player to 
type in something. Maybe a simple movement, such as GO NORTH, 
or just N, a command to acquire something, such as GET OBJECT, 
or any one of the million and one things that people are likely to 
think of as they set about solving an adventure. 

The first adventure games limited you to a VERB...NOUN type of 
input, so that you could only type in (at most) two words. Personally 
I find that this is usually sufficient, but some people obviously 
thought otherwise, and we began to see programs like 'Zork', or 
'The Hobbit', which allow you to type in extremely lengthy instruc¬ 
tions such as: 

TAKE THE BLUE HAT AND PUT IT ON THE GREEN SHELF 
Or: 

GO NORTH AND THEN GO WEST AND OPEN THE CUPBOARD 

Now this is all very well, unless you happen to make a spelling 
mistake in the first couple of words and type TKE THE BLUE HAT 
or GO NOTRH or something like that, in which case you'll have to 
type the whole thing in again and might just as well have gone for 
the old VERB...NOUN input in the first place. 

Putting personal preferences aside for a while, though, it is clear 
that many adventures are being produced that use these 
sophisticated techniques of input. Level 9 games have used them 
for a while, although it is interesting to note that some of their later 
efforts ('Red Moon' is current at the time of writing) have gone back 
to the VERB...NOUN school of thought, to the extent of only analys¬ 
ing the first three letters of each word. This was the method I used 
in the 'Exploring Adventures' series: how galling it is to see that 
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reviewers heartily dislike that particular method of input when used 
in one person's adventures, and yet those same reviewers solidly 
approve of Level 9 when they do it. One man's meat is the same 
man's poison, I suppose. 


Basic or machine code? 

As we keep on seeing, there are always two sides to the coin. If 
you write something in Basic it is very easy to alter it, or to extend 
it, but it doesn't necessarily run very fast. On the other hand, write 
a routine in machine code and it will run like the wind, until you come 
to alter it. You've got to decide at the outset which you're going 
to use, and as in the rest of this book we'll start with a Basic version 
first. 


Basic parser 

Part of this will be familiar to those who have read the 'Exploring 
Adventures' series, but part will not. The second part of the parser 
listing is an old friend that can easily be adapted. 

60000 CM*=. 

60002 PRINT"C RVS 3 * C OFF, CL 3"; 

60005 GETZ*: IFZ*=‘""THEN60005 

60010 Z=ASC<Z*>>IFZ>95THEN60005 

60080 ZLoLEN(CM*)aIFZL>27THEN60110 

60100 IFZ>31THENCM*=CM*+Z*3PRINTZ*;sG0T060002 

60110 1FZ=13ANDZLTHENPRINT" “aRETURN 

60120 I FZ=20ANDZLTHENCM*=>LEFT* < CM*,ZL-1)a PRINTZ*; 

60140 60T060002 

READY. 

Essentially this prints an asterisk on the screen and waits for a key 
to be pressed. Then, by checking the ASCII value of the key press¬ 
ed, we can either add to the input string, delete a character, com¬ 
plete the string or ignore the character. Whatever we do, the end 
input (whether it is GO NORTH or KNOCK AT HOUSE NUMBER 
THREE) is stored in the string CM$. 

This is where the first part of the listing comes into play. 
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390 PRINTt PRINT"WHAT NOW ? " 5 :IFA1=1THENPRINTA1*?: 
CM*=A1*:PRINT:LC=LEN(CM*) 1 PRINTi60T0392 

391 G0SUB60000:PRINT:LC-LEN(CM*) 

392 IF0B%(19)=-1THENMI»MI+1:IFMI-10THENB50 

393 N0*="":VB*="":VB=0:N0=0:IFA1=1THENA1=0:G0T0396 

394 A1=0:F0RI=1T0LC:IFMID*(CM*,I,5)«" AND "THENAl* 
=R IBHT* (CM*, LC-1-4): A1=1: A2® I 

395 NEXT:IF A1=1THENCM*“LEFT*(CM*,A2-1) 

396 FQRI=1T0LC: IFMID* (CM*, 1,1)0" "THENVB*=VB*+MID 
*(CM*,1,1):NEXT 

397 V1*=VB*:VB*=LEFT*(Vl*,4):F0RI=1T0NV:IFVB*(I)-V 
B*THENVB=I:G0T0402 

398 NEXT 

400 VB=7: NO*«=VB*: B0T0406 

402 IFLEN(VI*)+1>=LEN(CM*)THENNO-O:RETURN 

403 F0RI=LCT01STEP-1: IFMID*(CM*, 1,1)0" "THENN0*»N 
□*+MID*(CM*,1,1):NEXT 

404 N0*=RIBHT*(NO*,4):F0RI=1T04:A*(I)=MID*(N0*,5-I 
,1):NEXT 

405 N0*=" 11 :F0RI*1T04:NO*=NO*+A*(I):NEXT 

406 F0RI«1T0NN:IFNO*=NO*(I)THEN409 

407 NEXTI 

408 N0=0:RETURN 

409 N0=I:RETURN 

Look at lines 390 to 392. After printing up the 'What now' prompt, 
a check is made on the variable A1. The first time we run through 
this routine it will obviously equal zero, and so we'll come back to 
this part later. Line 391 goes off to the routine that we've just look¬ 
ed at, and then declares the variable LC to be equal to the length 
of the input string. 

Line 392 belongs to a real adventure game, and in fact comes from 
'The Lost Wallet', reproduced in Chapter 8, so again we'll look at 
that later on in the relevant chapter. 

Line 393 declares a few variables, and has another check on the 
variable A1: more later. 

The next two lines allow us to type in and respond to such complex 
inputs as: 

GO NORTH AND OPEN DOOR 
GET KEY AND UNLOCK CUPBOARD 


TAKE GLASS AND GET DRINK 




and so on. 


What they can't respond to is inputs like: 

GO NORTH SLOWLY 

and others of that ilk, which The Hobbit' allowed you to use. Ac¬ 
tually, I don't think the game ever required you to type anything 
like that in, which is just as well really because then probably no 
one would ever have solved it. 

Line 394 scans through the input string taking groups of five letters 
at a time. If it finds the sequence 'space-A-N-D-space' then it sets 
the variable A1 to be equal to one. This means that there is a repeat 
command to be acted on, so that the next time this routine is called 
up the appropriate responses can be made in lines 390 and 393. A1$ 
then becomes the right hand side of the input string, and in line 395 
if A1 has been set then we have to have another temporary input 
string, which is taken from the left hand side of the original one. 
So the temporary string becomes all the characters leading up to 
the first space in the sequence 'space-A-N-D-space', and the secon¬ 
dary string (A1 $) contains ail the characters after the second space 
in that same sequence. 

Whether we're acting on a repeat input string or a temporary one 
it's still CM$ that has to be analysed, and so we must proceed to 
line 396. 

This begins a check on CM$ by looking at every letter in the string 
and seeing if it's a space or not. If it isn't then we start to build up 
VB$ as the VERB part of our input. When a space is found program 
flow goes to line 397 where we chop VB$ down to size by taking 
the first four letters of it. 

Then a search begins through a previously set-up table of verbs to 
see if what has been typed in matches any of the ones in that table. 
If it does, then we get a value for VB and proceed to line 402, but 
if it doesn't then set VB to seven (which in the example this was 
taken from was the verb GO) and declare the NOUN part of our in¬ 
put to be equal to the VERB part and go off to line 406. 

Assuming the verb has been recognised, line 402 checks for the 
length of the input to see whether the player has typed in more than 
one word. If he has just typed in one word then return from this 
subroutine, otherwise onward we go. 
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Line 403 checks through the input string backwards one character 
at a time, and if that character isn't a string then we build up the 
NOUN part of the string in the same way that we earlier built up 
the VERB part of it. When (or indeed if) a space is eventually found 
the program falls through to line 404. 

As an example at this point, if the player had typed in OPEN THE 
RED DOOR, VB$ would contain "OPEN" and NO$ would contain 
"ROOD", since we checked through the input string backwards to 
find the noun. So now the noun part of the string has to be turned 
round, and this is the function of lines 404 and 405. 

Finally a check is made to identify the noun using a previously set¬ 
up table just as we did for the verb. If the noun is recognised we 
have a noun number NO, if it isn't then NO is just set to zero, but 
either way that is the end of this Basic input parser. 


Conclusion 

This is a reasonably fast routine that allows the program to cope 
with fairly complex instructions. It is also easy to amend for any other 
adventure game, but its great virtue is that it enables you to use 
a virtually limitless vocabulary. 

Finally, you can also very easily insert a check somewhere in the 
program so that if a player types in something rude then a suitable 
response can be given. Such as: 

100 IF VB$ = "rude word" THEN PRINT "WATCH IT!":GOTO 
somewhere 

However, in common with any routine that is written in Basic, it 
is not as fast as we would sometimes like such a routine to be, and 
so we have to proceed (as usual) to machine code. 


Machine-code parser 

The main part of the routine, as used here, resides in memory from 
locations $C000 to $C383, and is not easily relocatable. You can 
move it somewhere else if you want, but it's going to take a lot of 
time and trouble, so I suggest that you leave it where it is. 
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B* 

PC SR AC XR YR SP 
•;8FEB 33 00 03 00 F6 


cooo 

4C 

41 

C2 

JMP 

*C241 

C003 

A2 

00 


LDX 

#*00 

COOS 

A9 

20 


LDA 

#*20 

C007 

9D 

8 D 

CD 

STA 

*CD8D,X 

COOA 

9D 

A2 

CD 

STA 

*CDA2,X 

COOD 

9D 

B7 

CD 

STA 

*CDB7,X 

C010 

E8 



1NX 


C011 

EO 

15 


CPX 

#*15 

C013 

DO 

F2 


BNE 

*C007 

C015 

A9 

00 


LDA 

#*00 

C017 

8 D 

CD 

CD 

STA 

*CDCD 

C01A 

8 D 

CE 

CD 

STA 

♦CDCE 

C01D 

8 D 

CF 

CD 

STA 

*CDCF 

C020 

8 D 

D1 

CD 

STA 

*CDD1 

C023 

8 D 

D2 

CD 

STA 

*CDD2 

C026 

8 D 

D3 

CD 

STA 

*CDD3 

C029 

8 D 

D5 

CD 

STA 

*CDD5 

C02C 

A9 

41 


LDA 

#*41 

C02E 

8 D 

D7 

CD 

STA 

*CDD7 

C031 

A9 

41 


LDA 

#*41 

C033 

8 D 

DA 

CD 

STA 

*CDDA 

C036 

A9 

41 


LDA 

#*41 

C038 

8 D 

D8 

CD 

STA 

*CDD8 

C03B 

A9 

41 


LDA 

#*41 

C03D 

8 D 

D9 

CD 

STA 

*CDD9 

C040 

A9 

40 


LDA 

#*40 

C042 

8 D 

DB 

CD 

STA 

*CDDB 

C045 

AO 

00 


LDY 

#*00 

C047 

B9 

3C 

CD 

LDA 

*CD3C,Y 

C04A 

C9 

20 


CMP 

#*20 

C04C 

FO 

OA 


BEQ 

*C058 

C04E 

4C 

20 

CC 

JMP 

*CC20 

C051 

EE 

CD 

CD 

INC 

*C DCD 

C054 

ce 



INY 


C055 

4C 

47 

CO 

JMP 

*C047 

C058 

AC 

CD 

CD 

LDY 

*CDCD 

C05B 

CC 

CC 

CD 

CPY 

*CDCC 

C05E 

DO 

03 


BNE 

♦C063 

C060 

4C 

EF 

CO 

JMP 

♦COEF 

C063 

C8 



INY 


C064 

A2 

00 


LDX 

#*00 

C066 

B9 

3C 

CD 

LDA 

*CD3C , Y 

C069 

4C 

30 

CC 

JMP 

*CC30 

C06C 

E8 



INX 


C06D 

C8 



INY 


C06E 

CC 

CC 

CD 

CPY 

*CDCC 
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C071 

DO 

F3 


C073 

AD 

CC 

CD 

C076 

38 



C077 

ED 

CD 

CD 

C07A 

A8 



C07B 

88 



C07C 

A9 

20 


C07E 

4C 

40 

n 

O 

C081 

C8 



C0B2 

CC 

CC 

CD 

C085 

DO 

F5 


C087 

AD 

CC 

CD 

C08A 

38 



C08B 

ED 

CD 

CD 

C08E 

8 D 

CC 

CD 

C091 

CE 

CC 

CD 

C094 

AC 

CC 

CD 

C097 

88 



C09B 

B9 

3C 

CD 

C09B 

C9 

20 


C09D 

FO 

12 


C09F 

88 



C0A0 

DO 

09 


C0A2 

AD 

CC 

CD 

C0A5 

8 D 

CE 

CD 

C0A8 

4C 

B1 

CO 

COAB 

EE 

CE 

CD 

COAE 

4C 

98 

CO 

C0B1 

AD 

CC 

CD 

C0B4 

38 



C0B5 

ED 

CE 

CD 

C0B8 

A8 



C0B9 

A2 

00 


COBB 

B9 

3C 

CD 

COBE 

4C 

50 

CC 

C0C1 

A9 

20 


C0C3 

4C 

10 

CC 

C0C6 

E8 



C0C7 

C8 



C0C8 

CC 

CC 

CD 

COCB 

DO 

EE 


COCD 

AD 

CC 

CD 

CODO 

38 



C0D1 

ED 

CE 

CD 

C0D4 

FO 

19 


C0D6 

8 D 

CC 

CD 

C0D9 

CE 

CC 

CD 

CODC 

AO 

00 


CODE 

B9 

3C 

CD 

C0E1 

C9 

20 


C0E3 

FO 

OA 
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BNE *C066 
LDA *CDCC 
BEC 

SBC *CDCD 

TAY 

DEY 

LDA #*20 
JMP *CC40 
INY 

CPY *CDCC 
BNE *C07C 
LDA *CDCC 
SEC 

SBC *CDCD 
STA *CDCC 
DEC *CDCC 
LDY *CDCC 
DEY 

LDA *CD3C,Y 
CMP #*20 
BEQ *C0B1 
DEY 

BNE *C0AB 
LDA *CDCC 
STA *CDCE 
JMP *C0B1 
INC *CDCE 
JMP *C098 
LDA *CDCC 
SEC 

SBC *CDCE 
TAY 

LDX #*00 
LDA *CD3C f Y 
JMP *CC50 
LDA #*20 
JMP *CC10 
INX 
INY 

CPY *CDCC 
BNE *C0BB 
LDA *CDCC 
SEC 

SBC *CDCE 
BEQ *C0EF 
STA *CDCC 
DEC *CDCC 
LDY #*00 
LDA *CD3C,Y 
CMP #*20 
BEQ *C0EF 



C0E5 99 B7 CD 
C0E8 4C 00 CC 
COEB EA 
COEC 4C DE CO 
COEF 20 F5 C2 
C0F2 A9 00 
C0F4 85 BB 
C0F6 A9 C5 
C0F8 85 BC 
COFA A9 8D 
COFC 85 FB 
COFE A9 CD 
C100 85 FC 
C102 AD D7 CD 
C105 8D D4 CD 
C108 20 A7 Cl 
C10B AD DO CD 
C10E C9 FF 
C110 DO 06 
Cl12 20 DE Cl 
Cl15 4C 99 Cl 
Cl18 8D D1 CD 
CUB AD CE CD 
CUE FO 79 
C120 A9 00 
C122 85 BB 
C124 A9 C6 
C126 85 BC 
C128 A9 A2 
C12A 85 FB 
C12C A9 CD 
C12E 85 FC 
C130 AD D8 CD 
C133 8D D4 CD 
C136 20 A7 Cl 
C139 AD DO CD 
C13C C9 FF 
C13E DO 25 
C140 A9 00 
C142 85 BB 
C144 A9 C7 
C146 85 BC 
C148 AD D9 CD 
C14B 8D D4 CD 
C14E 20 A7 Cl 
C151 AD DO CD 
C154 C9 FF 
C156 FO 07 
C158 18 
C159 6D DB CD 
C15C 4C 65 Cl 


STA *CDB7 f Y 
JHP SCCOO 
NOP 

JMP SCODE 
JSR SC2F5 
LDA #*00 
STA SBB 
LDA #*C5 
STA SBC 
LDA #*8D 
STA SFB 
LDA #*CD 
STA SFC 
LDA SCDD7 
STA SCDD4 
JSR SC1A7 
LDA SCDDO 
CMP #*FF 
BNE SCI18 
JSR SCIDE 
JMP SC199 
STA SCDD1 
LDA SCDCE 
BEQ SC199 
LDA #*00 
STA SBB 
LDA #SC6 
STA SBC 
LDA #*A2 
STA SFB 
LDA #SCD 
STA SFC 
LDA SCDD8 
STA SCDD4 
JSR SC1A7 
LDA SCDDO 
CMP #*FF 
BNE SC165 
LDA #*00 
STA SBB 
LDA #*C7 
STA SBC 
LDA SCDD9 
STA SCDD4 
JSR SC1A7 
LDA SCDDO 
CMP #SFF 
BEQ SC15F 
CLC 

ADC SCDDB 
JMP SC165 


119 




C15F 

20 

DE 

Cl 

JSR 

♦C1DE 

C162 

4C 

99 

Cl 

JMP 

♦Cl 99 

C165 

8 D 

D2 

CD 

STA 

♦CDD2 

C168 

AD 

CF 

CD 

LDA 

♦CDCF 

C16B 

FO 

2C 


BEQ 

♦Cl 99 

C16D 

A9 

00 


LDA 

#♦00 

C16F 

85 

BB 


STA 

♦BB 

C171 

A9 

C8 


LDA 

♦♦CB 

C173 

85 

BC 


STA 

♦BC 

Cl 75 

A9 

B7 


LDA 

♦♦B7 

C177 

85 

FB 


STA 

♦FB 

C179 

A9 

CD 


LDA 

♦♦CD 

C17B 

85 

FC 


STA 

♦FC 

C17D 

AD 

DA 

CD 

LDA 

♦CDDA 

Cl 80 

8 D 

D4 

CD 

STA 

♦CDD4 

C183 

20 

A7 

Cl 

JSR 

♦C1A7 

C106 

AD 

DO 

CD 

LDA 

♦CDDO 

Cl 89 

C9 

FF 


CMP 

♦♦FF 

C18B 

DO 

04 


BNE 

♦C191 

C18D 

20 

DE 

Cl 

JSR 

♦C1DE 

Cl 90 

60 



RTS 


C191 

8 D 

D3 

CD 

STA 

♦CDD3 

C194 

A9 

00 


LDA 

♦♦00 

Cl 96 

8 D 

86 

02 

STA 

♦0286 

Cl 99 

60 



RTS 


C19A 

A2 

00 


LDX 

♦♦00 

C19C 

A9 

20 


LDA 

♦♦20 

C19E 

9D 

3C 

CD 

STA 

♦CD3C,X 

C1A1 

E8 



INX 


C1A2 

EO 

51 


CPX 

♦♦51 

C1A4 

DO 

F8 


BNE 

♦C19E 

C1A6 

60 



RTS 


C1A7 

A9 

01 


LDA 

♦♦01 

C1A9 

8 D 

DO 

CD 

STA 

♦CDDO 

C1AC 

AO 

00 


LDY 

♦♦00 

C1AE 

B1 

BB 


LDA 

(♦BB) f Y 

Cl BO 

D1 

FB 


CMP 

(♦FB),Y 

C1B2 

DO 

06 


BNE 

♦Cl BA 

C1B4 

C8 



I NY 


C1B5 

CO 

04 


CPY 

♦♦04 

C1B7 

DO 

F5 


BNE 

♦C1AE 

C1B9 

60 



RTS 


C1BA 

AD 

DO 

CD 

LDA 

♦CDDO 

C1BD 

18 



CLC 


C1BE 

69 

01 


ADC 

♦♦01 

C1C0 

CD 

D4 

CD 

CMP 

♦CDD4 

C1C3 

FO 

13 


BEQ 

♦C1D8 

C1C5 

8 D 

DO 

CD 

STA 

♦CDDO 

C1C8 

18 



CLC 


C1C9 

A5 

BB 


LDA 

♦BB 

C1CB 

69 

04 


ADC 

♦♦04 
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C1CD 85 BB 
C1CF A5 BC 
C1D1 69 00 
C1D3 85 BC 
C1D5 4C AC Cl 
C1D8 A9 FF 
C1DA 8D DO CD 
C1DD 60 
C1DE A9 00 
C1E0 8D 86 02 
C1E3 A9 OD 
C1E5 20 D2 FF 
C1E8 20 D2 FF 
C1EB AO 00 
C1ED B9 12 C2 
C1F0 20 D2 FF 
C1F3 C8 
C1F4 CO 23 
C1F6 DO F5 
C1F8 A9 00 
C1FA 8D 86 02 
C1FD A9 20 
C1FF 20 D2 FF 
C202 20 A9 C3 
C205 EA 
C206 EA 
C207 A9 FF 
C209 8D D5 CD 
C20C A9 00 
C20E 8D 86 02 
C211 60 
C212 C9 20 
C214 44 
C215 4F 
C216 4E 27 54 
C219 20 55 4E 
C21C 44 
C21D 45 52 
C21F 53 
C220 54 
C221 41 4E 
C223 44 
C224 20 59 4F 
C227 55 2C 
C229 20 C9 27 
C22C 4D 20 41 
C22F 46 52 
C231 41 49 
C233 44 
C234 2E EA EA 
C237 EA 


STA 4BB 
LDA 4BC 
ADC #400 
STA 4BC 
JMP 4C1AC 
LDA #4FF 
STA 4CDD0 

SS«oo 

STA 40286 
LDA #40D 
J8R 4FFD2 
JSR 4FFD2 
LDY #400 
LDA 4C212,Y 
JSR 4FFD2 
INY 

CPY #423 
BNE 4C1ED 
LDA #400 
STA 40286 
LDA #420 
JSR 4FFD2 
JSR 4C3A9 
NOP 
NOP 

LDA #4FF 
STA 4CDD5 
LDA #400 
STA 40286 
RTS 

CMP #420 
??? 

??? 

LSR 45427 
JSR 44E55 
??? 

EOR 452 

??? 

??? 

EOR <44E,X> 
??? 

JSR 44F59 
EOR 42C,X 
JSR 427C9 
EOR 44120 
LSR 452 
EOR (449,X) 
??? 

ROL 4EAEA 
NOP 
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C238 EA 
C239 EA 
C23A EA 
C23B EA 
C23C EA 
C23D EA 
C23E EA 
C23F EA 
C240 EA 
C241 A6 D6 
C243 AO 00 
C245 18 
C246 20 FO FF 
C249 A9 05 
C24B 20 D2 FF 
C24E A9 8D 
C250 20 D2 FF 
C253 A9 11 
C255 20 02 FF 
C256 EA 
C259 EA 
C25A A6 D6 
C25C AO 00 
C25E 8C DO CD 
C261 18 
C262 20 FO FF 
C265 20 00 CB 
C268 20 D2 FF 
C26B 20 10 CB 
C26E EA 
C26F 20 9A Cl 
C272 20 E4 FF 
C275 C9 00 
C277 FO F9 
C279 C9 20 
C27B DO 08 
C27D AE DO CD 
C280 FO FO 
C282 4C C3 C2 
C285 C9 OD 
C287 DO 08 
C289 AD DO CD 
C28C FO E4 
C28E 4C E6 C2 
C291 C9 5F 
C293 FO AC 
C295 C9 2A 
C297 FO 59 
C299 C9 14 
C29B DO IE 
C29D AC DO CD 


NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

LDX $D6 
LDY #$00 
CLC 

JSR $FFFO 
LDA #$05 
JSR $FFD2 
LDA #$8D 
JSR $FFD2 
LDA #$11 
JSR $FFD2 
NOP 
NOP 

LDX $D6 
LDY #$00 
STY $CDDO 

JSR $FFFO 
JSR $CBOO 
JSR $FFD2 
JSR $CB10 
NOP 

JSR $C19A 
JSR $FFE4 
CMP #$00 
BEQ $C272 
CMP #$20 
BNE $C285 
LDX $CDDO 
BEQ $C272 
JMP $C2C3 
CMP #$0D 
BNE $C291 
LDA $CDDO 
BEQ $C272 
JMP $C2E6 
CMP #$5F 
BEQ $C241 
CMP #$2A 
BEQ $C2F2 
CMP #$14 
BNE $C2BB 
LDY $CDDO 


122 



C2A0 

FO 

DO 


BEQ 

*C272 

C2A2 

CE 

DO 

CD 

DEC 

*CDDO 

C2A5 

20 

D2 

FF 

JSR 

*FFD2 

C2A8 

20 

D2 

FF 

J8R 

*FFD2 

C2AB 

A9 

2A 


LDA 

#*2A 

C2AD 

20 

D2 

FF 

JSR 

♦FFD2 

C2B0 

AC 

DO 

CD 

LDY 

*CDDO 

C2B3 

A9 

20 


LDA 

#*20 

C2B5 

99 

3C 

CD 

STA 

*CD3C V Y 

C2B8 

4C 

72 

C2 

JMP 

*C272 

C2BB 

C9 

41 


CMP 

#*41 

C2BD 

30 

B3 


BMI 

*C272 

C2BF 

C9 

5B 


CMP 

#*5B 

C2C1 

10 

AF 


BPL 

*C272 

C2C3 

AC 

DO 

CD 

LDY 

*CDDO 

C2C6 

CO 

24 


CPY 

#*24 

C2C8 

FO 

A8 


BEQ 

*C272 

C2CA 

99 

3C 

CD 

STA 

*CD3C,Y 

C2CD 

EE 

DO 

CD 

INC 

*CDDO 

C2D0 

8 D 

D6 

CD 

STA 

*CDD6 

C2D3 

A9 

9D 


LDA 

#*9D 

C2D5 

20 

D2 

FF 

JSR 

*FFD2 

C2D8 

AD 

D6 

CD 

LDA 

*CDD6 

C2DB 

20 

D2 

FF 

JSR 

*FFD2 

C2DE 

A9 

2A 


LDA 

#*2A 

C2E0 

20 

D2 

FF 

JSR 

*FFD2 

C2E3 

4C 

72 

C2 

JMP 

*C272 

C2E6 

AD 

DO 

CD 

LDA 

*CDDO 

C2E9 

8 D 

CC 

CD 

STA 

*CDCC 

C2EC 

20 

02 

C3 

JSR 

*C302 

C2EF 

4C 

03 

CO 

JMP 

*C003 

C2F2 

4C 

EF 

CO 

JMP 

*COEF 

C2F5 

A2 

00 


LDX 

#*00 

C2F7 

60 



RTS 


C2F8 

20 

9D 

CO 

JSR 

*C09D 

C2FB 

07 



??? 


C2FC 

E8 



INX 


C2FD 

EO 

27 


CPX 

#*27 

C2FF 

DO 

F8 


BNE 

*C2F9 

C301 

60 



RTS 


C302 

A2 

00 


LDX 

#*00 

C304 

A9 

20 


LDA 

#*20 

C306 

9D 

98 

07 

STA 

*0798,X 

C309 

E8 



INX 


C30A 

EO 

27 


CPX 

#*27 

C30C 

DO 

FB 


BNE 

*C306 

C30E 

A9 

00 


LDA 

#*00 

C310 

8 D 

86 

02 

STA 

*0286 

C313 

A9 

12 


LDA 

#*12 

C313 

20 

D2 

FF 

JSR 

*FFD2 

C318 

A6 

D6 


LDX 

*D6 



C31A 

AO 

00 


LDY 

#♦00 

C31C 

18 



CLC 


C31D 

20 

FO 

FF 

JBR 

♦FFFO 

C320 

AO 

00 


LDY 

#♦00 

C322 

B9 

3C 

CD 

LDA 

♦CD3C,Y 

C325 

20 

D2 

FF 

JSR 

♦FFD2 

C328 

C8 



INY 


C329 

CC 

DO 

CD 

CPY 

♦CDDO 

C32C 

DO 

F4 


BNE 

♦C322 

C32E 

A9 

2E 


LDA 

#$2E 

C330 

20 

D2 

FF 

JSR 

♦FFD2 

C333 

20 

A9 

C3 

JSR 

♦C3A9 

C336 

EA 



NOP 


C337 

EA 



NOP 


C338 

A9 

00 


LDA 

#♦00 

C33A 

8D 

86 

02 

STA 

♦0286 

C33D 

60 



RTS 


C33E 

EA 



NOP 


C33F 

AO 

00 


LDY 

#♦00 

C341 

A9 

05 


LDA 

#♦05 

C343 

99 

00 

D8 

STA 

♦D800,Y 

C346 

A9 

AO 


LDA 

♦♦AO 

C348 

99 

00 

04 

STA 

♦0400,Y 

C34B 

C8 



INY 


C34C 

CO 

FO 


CPY 

♦♦FO 

C34E 

DO 

FI 


BNE 

♦C341 

C350 

AO 

00 


LDY 

#♦00 

C352 

A9 

05 


LDA 

#♦05 

C354 

99 

FO 

D8 

STA 

♦D8F0,Y 

C357 

A9 

AO 


LDA 

♦♦AO 

C359 

99 

FO 

04 

STA 

♦04F0,Y 

C35C 

C8 



INY 


C35D 

CO 

FO 


CPY 

♦♦FO 

C35F 

DO 

FI 


BNE 

♦C352 

C361 

AO 

00 


LDY 

#♦00 

C363 

A9 

05 


LDA 

#♦05 

C365 

99 

EO 

D9 

STA 

♦D9E0,Y 

C368 

A9 

AO 


LDA 

♦♦AO 

C36A 

99 

EO 

05 

STA 

♦05E0,Y 

C36D 

C8 



INY 


C36E 

CO 

FO 


CPY 

♦♦FO 

C370 

DO 

FI 


BNE 

♦C363 

C372 

AO 

00 


LDY 

#♦00 

C374 

A9 

77 


LDA 

#♦77 

C376 

99 

DO 

06 

STA 

♦06D0.Y 

C379 

A9 

00 


LDA 

#♦00 

C37B 

99 

DO 

DA 

STA 

♦DADO f Y 

C37E 

C8 



INY 


C37F 

CO 

28 


CPY 

#♦28 

C381 

DO 

FI 


BNE 

♦C374 

C383 

60 



RTS 
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C384 

FF 

??? 

C385 

FF 

??? 

C386 

FF 

??? 

C387 

FF 

??? 

C388 

FF 

??? 

C389 

FF 

??? 

C38A 

FF 

??? 

C38B 

FF 

??? 

C38C 

FF 

??? 

C38D 

FF 

??? 

C38E 

FF 

??? 

C38F 

FF 

??? 

C390 

FF 

??? 

C391 

FF 

??? 

C392 

FF 

??? 

C393 

FF 

??? 

C394 

FF 

??? 

C395 

FF 

??? 

C396 

FF 

??? 

C397 

FF 

??? 

C398 

FF 

??? 

C399 

FF 

??? 

C39A 

FF 

??? 

C39B 

FF 

??? 

C39C 

FF 

??? 

C39D 

FF 

??? 

C39E 

FF 

??? 

C39F 

FF 

??? 

C3A0 

60 

RTS 

C3A1 

D6 80 

DEC *80,X 

C3A3 

A8 

TAY 

C3A4 

C3 

??? 

C3A5 

4C 41 C2 

JMP *C241 

C3A8 

07 

??? 

C3A9 

60 

RTS 

C3AA 

A8 

TAY 

C3AB 

C3 

??? 

C3AC 

85 06 

STA *06 

C3AE 

60 

RTS 

C3AF 

07 

??? 

C3B0 

C2 

??? 

C3B1 

00 

BRK 


Then comes our word table, which allows up to 64 verbs, 128 nouns, 
and 64 link words'. We'll come to those 'link words' later. 
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.s C500 41 54 54 
.s C508 42 4C 49 
.s C510 43 4C 4F 
.:C518 43 55 54 
.:C520 44 52 49 
.8 C528 45 20 20 
.3 C530 45 4E 54 
.s C53B 45 58 41 

• s C540 53 54 41 
.s C548 47 45 54 
.:C550 47 4F 20 
.s C55B 48 45 41 
.s C560 48 4F 4C 
.:C56B 4A 4F 49 

• s C570 4B 49 4C 

• s C578 4C 4F 4F 
.s C580 4E 20 20 
.s C588 4F 50 45 
.a C590 50 41 55 
.s C598 50 4C 41 
.8 C5A0 50 52 41 
.8 C5A8 52 45 43 
.:C5B0 48 45 4C 
.s C5B8 53 41 43 
.:C5C0 53 45 4E 
.:C5C8 53 48 41 

• 8 C5D0 53 50 41 

• s C5D8 53 43 4F 
.8 C5E0 54 41 4B 
.:C5E8 54 49 45 
•:C5F0 57 41 49 

• 3 C5F8 53 41 56 
.s C600 41 4E 43 
.:C608 42 41 47 
.:C610 42 41 53 
.s C618 42 4F 41 
.s C620 43 41 54 

• 8 C628 43 48 41 
.8 C630 43 49 52 
.a C638 43 59 43 
.s C640 44 4F 57 

• 8 C648 44 55 4E 

• s C650 45 55 52 
.:C658 46 45 4E 
.s C660 47 49 41 
.:C668 53 4B 49 
.8 C670 48 49 4C 

• s C678 48 4F 4C 
.s C680 49 53 4C 
.8 C688 4B 4E 49 
.s C690 4D 45 4E 


41 42 45 41 43 
4E 42 52 49 42 

53 51 55 49 54 
20 44 49 47 20 
4E 44 52 4F 50 
20 45 41 54 20 
45 45 58 50 4C 
4D 46 45 45 44 

54 46 49 4C 4C 
20 47 49 56 45 
20 47 52 41 42 
54 48 49 44 45 
44 49 4E 56 45 
4E 4A 55 4D 50 
4C 4C 41 53 48 
4B 4D 4F 56 45 
20 4F 46 46 45 
4E 4F 52 44 45 

53 50 49 43 4B 

43 50 4C 45 41 
59 52 41 49 53 
52 52 45 44 45 
50 52 4F 57 20 
4B 53 45 41 52 

44 53 45 54 20 
52 53 20 20 20 
52 53 4C 45 45 
52 53 54 4F 52 

45 54 41 4C 4B 
20 55 4E 54 49 

54 57 20 20 20 

45 4C 4F 41 44 
48 41 4E 54 53 
20 42 41 52 4C 
4B 42 45 45 53 
54 42 4F 57 20 
54 43 41 56 45 
4E 43 49 52 43 
43 43 49 54 59 
4C 44 4F 4F 52 
4E 44 52 55 47 
47 45 41 53 54 
59 46 41 4D 49 

43 46 4F 4F 44 
4E 47 4F 41 54 
4E 48 41 52 42 
4C 48 49 56 45 

44 48 4F 4E 45 
41 4B 45 45 4C 

46 4D 41 53 54 
20 4D 49 4C 4B 
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•:C698 4E 4F 52 

• s C6A0 4F 44 59 
•:C 6 A 8 50 4C 41 

• 8 C6B0 50 52 49 

• s C 6 B 8 52 4F 44 
.s C6C0 52 55 49 
.:C 6 C 8 53 43 59 

• s C6D0 53 49 52 

• s C 6 D 8 53 4F 55 
.s C6E0 53 54 41 
.:C 6 EB 53 57 4F 
.s C6F0 54 45 54 

• s C 6 F 8 54 52 41 

• s C700 54 52 45 

• z C708 55 50 20 
.s C710 57 41 58 
■iC718 57 48 45 

• s C720 57 4F 4F 

• 3 C728 59 4F 55 

• 8 C730 53 4C 45 
-8 C738 53 45 41 

• s C740 41 53 48 
.s C748 57 41 54 

• 8 C750 42 45 45 
-s C758 20 20 20 

• s C760 20 20 20 
.:C768 20 20 20 

• 3 C770 20 20 20 
■:C778 20 20 20 
.s C780 20 20 20 
.:C788 20 20 20 
.s C790 20 20 20 

• s C798 20 20 20 
•:C7A0 20 20 20 
.s C7A8 20 20 20 
-s C7B0 20 20 20 
.8 C7B8 20 20 20 

• 8 C7C0 20 20 20 

• s C7C8 20 20 20 
.s C7D0 20 20 20 

• s C7D8 20 20 20 

• s C7E0 20 20 20 

• s C7E8 20 20 20 

• 8 C7F0 20 20 20 
.:C7F8 20 20 20 

• s C800 41 52 4F 
.s C808 4F 56 45 
•iC810 46 52 45 
.:C818 40 45 41 
.:C820 40 4F 54 
.s0828 50 4F 54 


54 4F 41 52 53 

53 50 49 47 53 
4E 50 4F 40 59 
45 52 4F 43 4B 
20 52 4F 50 45 
4E 53 41 49 40 
40 53 48 45 45 

45 53 40 41 56 

54 53 50 52 49 

46 53 54 45 57 
52 54 41 56 45 
48 54 49 52 45 

43 54 52 45 45 
4E 55 4E 54 45 
20 57 41 40 40 
20 57 45 53 54 
59 57 49 4E 45 

44 4 F 46 46 20 
20 50 52 4F 47 

45 45 41 54 45 
20 53 48 4F 52 
4F 53 48 49 50 
45 40 41 4E 20 
48 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 

55 41 52 52 4F 

52 42 55 43 4B 

53 47 4F 4C 44 

54 4C 45 4E 47 

55 42 4F 57 4C 
45 52 4F 55 47 
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.8 C830 

53 

45 

56 

45 

54 

48 

45 

20 

.s C838 

54 

48 

52 

4F 

54 

4F 

20 

20 

.s C840 

54 

4F 

57 

41 

55 

50 

20 

20 

.s C848 

44 

4F 

57 

4E 

57 

49 

43 

4B 

.s C850 

57 

49 

54 

48 

48 

45 

52 

45 

.s C858 

57 

4F 

4F 

44 

46 

4F 

52 

20 

.s C860 

41 

4D 

4F 

4E 

42 

45 

54 

57 

.s C868 

41 

43 

52 

4F 

42 

45 

53 

49 

.8 C870 

55 

4E 

44 

45 

43 

41 

54 

54 

.8 C878 

43 

49 

52 

43 

43 

49 

52 

43 

.s C880 

43 

59 

43 

4C 

45 

55 

52 

59 

.s C888 

46 

41 

4D 

49 

47 

49 

41 

4E 

.3 C890 

47 

4F 

41 

54 

4D 

45 

4E 

20 

.s C898 

4F 

44 

59 

53 

50 

4F 

4C 

59 

.s C8A0 

50 

52 

49 

45 

53 

43 

59 

4C 

• 8 C8A8 

53 

48 

45 

45 

53 

49 

52 

45 

.8 C8B0 

53 

4C 

41 

56 

54 

49 

52 

45 

.s C8B8 

45 

41 

54 

45 

49 

4E 

20 

20 

.s C8C0 

41 

54 

20 

20 

4F 

4E 

20 

20 

.8 C8C8 

42 

41 

47 

20 

20 

20 

20 

20 

.8 C8D0 

20 

20 

20 

20 

20 

20 

20 

20 

.s C8D8 

20 

20 

20 

20 

20 

20 

20 

20 

■8 C8E0 

20 

20 

20 

20 

20 

20 

20 

20 

.8C8EB 

20 

20 

20 

20 

20 

20 

20 

20 

.8 C8F0 

20 

20 

20 

20 

20 

20 

20 

20 

.8 C8F8 

20 

20 

20 

20 

20 

20 

20 

20 


This, as you can see, runs from locations $C5G0 to $C8FF, with the 
verbs occupying the first 256 locations, the nouns the next 512, and 
finally another 256 bytes for the link words. 


You don't need to type this in for your own programs, but if you 
want to see the vocabulary list for one of my games, well, be my 
guest! 


The last few parts of this listing are a hotch-potch of little routines 
that are used occasionally by the main one given earlier. 


C400 

A9 

00 


LDA 

#♦00 

C402 

8D 

14 

03 

STA 

♦0314 

C405 

A9 

C9 


LDA 

#^C9 

C407 

8D 

15 

03 

STA 

♦0315 

C40A 

m 

m 

60 



RTS 


ccoo 

EE 

CF 

CD 

INC 

♦CDCF 

CC03 

C8 



INY 


CC04 

CO 

49 


CPY 

#♦49 
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CC06 

FO 

03 


BEQ 

$CCOB 

CC08 

4C 

EC 

CO 

JMP 

$COEC 

CCOB 

4C 

EF 

CO 

JMP 

$COEF 

CCOE 

FF 



77? 


CCOF 

FF 



77? 


CCIO 

99 

3C 

CD 

STA 

$CD3C,Y 

CC13 

EO 

C3 


CPX 

#$C3 

CC15 

FO 

03 


BEQ 

$CC1A 

CC17 

4C 

C6 

CO 

JMP 

$C0C6 

CC1A 

4C 

CD 

CO 

JMP 

$COCD 

CC1D 

FF 



77? 


CC1E 

FF 



77? 


CC1F 

FF 



77? 


CC20 

99 

8D 

CD 

STA 

$CD8D,Y 

CC23 

CO 

7D 


CPY 

#$7D 

CC25 

FO 

03 


BEQ 

$CC2A 

CC27 

4C 

51 

CO 

JMP 

$C0S1 

CC2A 

4C 

58 

CO 

JMP 

$C058 

CC2D 

00 



BRK 


CC2E 

00 



BRK 


CC2F 

00 



BRK 


CC30 

9D 

3C 

CD 

STA 

$CD3C v X 

CC33 

EO 

C3 


CPX 

#$C3 

CC35 

FO 

03 


BEQ 

$CC3A 

CC37 

4C 

6C 

CO 

JMP 

$C06C 

CC3A 

4C 

73 

CO 

JMP 

$C073 

CC3D 

00 



BRK 


CC3E 

00 



BRK 


CC3F 

00 



BRK 


CC40 

99 

3C 

CD 

STA 

$CD3C,Y 

CC43 

CO 

C3 


CPY 

#$C3 

CC45 

FO 

03 


BEQ 

$CC4A 

CC47 

4C 

81 

CO 

JMP 

$C081 

CC4A 

4C 

87 

CO 

JMP 

$C087 

CC4D 

FF 



77? 


CC4E 

FF 



77? 


CC4F 

FF 



77? 


CC50 

9D 

A2 

CD 

STA 

*CDA2 f X 

CC53 

EO 

5D 


CPX 

#*5D 

CC55 

FO 

03 


BEQ 

*CC5A 

CC57 

4C 

Cl 

CO 

JMP 

♦C0C1 

CC5A 

4C 

CD 

CO 

JMP 

*COCD 

CC5D 

■ 

FF 



77? 


m 

CBOO 

A9 

01 


LDA 

#$01 

CB02 

85 

C7 


STA 

*C7 

CB04 

A9 

00 


LDA 

#$00 

CB06 

8D 

86 

02 

STA 

$0286 

CB09 

A9 

2A 


LDA 

#$2A 

CBOB 

60 



RTS 
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CBOC FF 
CBOD FF 
CBOE FF 
CBOF FF 
CBIO A9 00 
CB12 85 C7 
CB14 60 
CB15 FF 
CB16 FF 
CB17 FF 
CB18 FF 
CB19 FF 
CB1A FF 
CB1B FF 
CB1C FF 
CB1D FF 
CB1E FF 
CB1F FF 
CB20 A9 93 
CB22 20 D2 FF 
CB25 A9 00 
CB27 85 FB 
CB29 A9 AO 
CB2B 85 FC 
CB2D AO 00 
CB2F B1 FB 
CB31 91 FB 
CB33 08 
CB34 DO F9 
CB36 E6 FC 
CB38 A5 FC 
CB3A C9 CO 
CB3C DO EF 
CB3E A9 36 
CB40 85 01 
CB42 A9 00 
CB44 85 FB 
CB46 A9 EO 
CB48 85 FC 
CB4A AO 00 
CB4C B1 FB 
CB4E 91 FB 
CB50 C8 
CB51 DO F9 
CB53 E6 FC 
CB55 A5 FC 
CB57 C9 00 
CB59 DO EF 
CB5B A9 35 


??? 

??? 

??? 

??? 

LDA #*00 
STA *C7 
RTS 
??? 

??? 

??? 

??? 

??? 

??? 

??? 

??? 

77? 

77? 

77? 

LDA #*93 
JSR *FFD2 
LDA #*00 
STA *FB 
LDA #*A0 
STA *FC 
LDY #*00 
LDA <*FB) f Y 
STA <*FB),Y 
INY 

BNE *CB2F 
INC *FC 
LDA *FC 
CMP #*C0 
BNE *CB2D 
LDA #*36 
STA *01 
LDA #*00 
STA *FB 
LDA #*E0 
STA *FC 
LDY #*00 
LDA (*FB),Y 
STA (*FB) f Y 
INY 

BNE *CB4C 
INC *FC 
LDA *FC 
CMP #*00 
BNE *CB4A 
LDA #*35 
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CB5D 

85 

01 


STA 

♦01 

CB5F 

A9 

12 


LDA 

#♦12 

CB61 

8 D 

82 

E8 

STA 

♦E882 

CB64 

8 D 

DO 

E6 

STA 

♦E6D0 

CB67 

8 D 

8 E 

E9 

STA 

♦E98E 

CB6A 

A9 

11 


LDA 

#♦11 

CB6C 

8 D 

04 

E9 

STA 

♦E904 

CB6F 

8 D 

5F 

E5 

STA 

♦E55F 

CB72 

8 D 

26 

E9 

STA 

♦E926 

CB75 

8 D 

70 

E9 

STA 

♦E970 

CB78 

A9 

15 


LDA 

#♦15 

CB7A 

8 D 

57 

E5 

STA 

♦E557 

CB7D 

60 



RTS 


CB7E 

00 



BRK 


CB7F 

00 



BRK 


CB80 

DO 

FF 


BNE 

♦CB81 

CB82 

FF 



??? 



These little programs are mainly used to store variables in various 
parts of memory, but don't feel tempted to leave them out because 
if you do the program will come to a grinding halt. 

If you want to use any other routines in the block $C000 to $CFFF 
(such as the text compressor in the next chapter), then 'safe' loca¬ 
tions are $C9G0 to $CAFF, $CB7E to $CBFF and $CE00 to $CFFF. 


Finally, if you want to type it in in Basic form, here it is: 

10 SE = 49152 sEE « 53247 

20 s 

30 FORI - SE TO EE s READ A s POKE I , A s NEXT 
40 s 

50000 DATA 076,065,194,162,000,169,032,157,141,205 
,157,162,205,157 

50001 DATA 183,205,232,224,021,208,242,169,000,141 
,205,205,141,206 

50002 DATA 205,141,207,205,141,209,205,141,210,205 
,141,211,205,141 

50003 DATA 213,205,169,065,141,215,205,169,065,141 
,218,205,169,065 

50004 DATA 141,216,205,169,065,141,217,205,169,064 
,141,219,205,160 

50005 DATA 000,185,060,205,201,032,240,010,076,032 
,204,238,205,205 

50006 DATA 200,076,071,192,172,205,205,204,204,205 
,208,003,076,239 
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50007 DATA 192,200,162,000,185,060,205,076,048,204 
,232,200,204,204 

50008 DATA 205,208,243,173,204,205,056,237,205,205 
,168,136,169,032 

50009 DATA 076,064,204,200,204,204,205,208,245,173 
,204,205,056,237 

50010 DATA 205,205,141,204,205,206,204,205,172,204 
,205,136,185,060 

50011 DATA 205,201,032,240,018,136,208,009,173,204 
,205,141,206,205 

50012 DATA 076,177,192,238,206,205,076,152,192,173 
,204,205,056,237 

50013 DATA 206,205,168,162,000,185,060,205,076,080 
,204,169,032,076 

50014 DATA 016,204,232,200,204,204,205,208,238,173 
,204,205,056,237 

50015 DATA 206,205,240,025,141,204,205,206,204,205 
,160,000,185,060 

50016 DATA 205,201,032,240,010,153,183,205,076,000 
204 234 076 222 

50017 DATA 192,032,245,194,169,000,133,187,169,197 
,133,188,169,141 

50018 DATA 133,251,169,205,133,252,173,215,205,141 
212 205 032 167 

50019 DATA 193,173,208,205,201,255,208,006,032,222 
,193,076,153,193 

50020 DATA 141,209,205,173,206,205,240,121,169,000 
133 187 169 198 

50021 DATA 133,188,169,162,133,251,169,205,133,252 
,173,216,205,141 

50022 DATA 212,205,032,167,193,173,208,205,201,255 
,208,037,169,000 

50023 DATA 133,187,169,199,133,188,173,217,205,141 
,212,205,032,167 

50024 DATA 193,173,208,205,201,255,240,007,024,109 
,219,205,076,101 

50025 DATA 193,032,222,193,076,153,193,141,210,205 
,173,207,205,240 

50026 DATA 044,169,000,133,187,169,200,133,188,169 
,183,133,251,169 

50027 DATA 205,133,252,173,218,205,141,212,205,032 
,167,193,173,208 

50028 DATA 205,201,255,208,004,032,222,193,096,141 
,211,205,169,000 

50029 DATA 141,134,002,096,162,000,169,032,157,060 
,205,232,224,081 

50030 DATA 208,248,096,169,001,141,208,205,160,000 
,177,187,209,251 

50031 DATA 208,006,200,192,004,208,245,096,173,208 
,205,024,105,001 
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50032 DATA 205,212,205,240,019,141,208,205,024,165 
,187,105,004,133 

50033 DATA 187,165,188,105,000,133,188,076,172,193 
,169,255,141,208 

50034 DATA 205,096,169,000,141,134,002,169,013,032 
,210,255,032,210 

50035 DATA 255,160,000,185,018,194,032,210,255,200 
,192,035,208,245 

50036 DATA 169,000,141,134,002,169,032,032,210,255 
,032,169,195,234 

50037 DATA 234,169,255,141,213,205,169,000,141,134 
,002,096,201,032 

50038 DATA 068,079,078,039,084,032,085,078,068,069 
,082,083,084,065 

50039 DATA 078,068,032,089,079,085,044,032,201,039 
,077,032,065,070 

50040 DATA 082,065,073,068,046,234,234,234,234,234 
,234,234,234,234 

50041 DATA 234,234,234,166,214,160,000,024,032,240 
,255,169,005,032 

50042 DATA 210,255,169,141,032,210,255,169,017,032 
,210,255,234,234 

50043 DATA 166,214,160,000,140,208,205,024,032,240 
,255,032,000,203 

50044 DATA 032,210,255,032,016,203,234,032,154,193 
,032,228,255,201 

50045 DATA 000,240,249,201,032,208,008,174,208,205 
,240,240,076,195 

50046 DATA 194,201,013,208,008,173,208,205,240,228 
,076,230,194,201 

50047 DATA 095,240,172,201,042,240,089,201,020,208 
,030,172,208,205 

50048 DATA 240,208,206,208,205,032,210,255,032,210 
,255,169,042,032 

50049 DATA 210,255,172,208,205,169,032,153,060,205 
,076,114,194,201 

50050 DATA 065,048,179,201,091,016,175,172,208,205 
,192,036,240,168 

50051 DATA 153,060,205,238,208,205,141,214,205,169 
,157,032,210,255 

50052 DATA 173,214,205,032,210,255,169,042,032,210 
,255,076,114,194 

*50053 DATA 173,208,205,141,204,205,032,002,195,076 
,003,192,076,239 

50054 DATA 192,162,000,096,032,157,192,007,232,224 
039 208 248 096 

50055 DATA 162,000,169,032,157,152,007,232,224,039 
,208,248,169,000 

50056 DATA 141,134,002,169,018,032,210,255,166,214 
,160,000,024,032 

50057 DATA 240,255,160,000,1B5,060,205,032,210,255 
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,200,204,208,205 

50058 DATA 208,244,169,046,032,210,255,032,169,195 
,234,234,169,000 

50059 DATA 141,134,002,096,234,160,000,169,005,153 
,000,216,169,160 

50060 DATA 153,000,004,200,192,240,208,241,160,000 
,169,005,153,240 

50061 DATA 216,169,160,153,240,004,200,192,240,208 
,241,160,000,169 

50062 DATA 005,153,224,217,169,160,153,224,005,200 
f192,240,208,241 

50063 DATA 160,000,169,119,153,208,006,169,000,153 
,208,218,200,192 

50064 DATA 040,208,241,096,255,255,255,255,255,255 
,255,255,255,255 

50065 DATA 255,255,255,255,255,255,255,255,255,255 
,255,255,255,255 

50066 DATA 255,255,255,255,096,214,141,168,195,076 
,065,194,007,096 

50067 DATA 168,195,133,214,096,007,194,000,000,000 

, 000 , 000 , 000,000 

50068 DATA 000,000,000,000,000,000,000,000,255,255 
,255,255,255,255 

50069 DATA 255,255,255,255,255,255,255,255,255,255 
,255,255,255,255 

50070 DATA 255,255,255,255,255,255,255,255,255,255 
,255,255,128,000 

50071 DATA 000,000,000,000,000,000,000,000,000,000 

, 000 , 000 , 000,000 

50072 DATA 000,000,000,000,000,000,000,000,000,000 

, 000 , 000 , 000,000 

50073 DATA 000,000,169,000,141,020,003,169,201,141 
,021,003,096,255 

50074 DATA 255,255,255,255,255,255,255,255,255,255 
,255,255,255,255 

50075 DATA 255,255,255,255,255,255,128,000,000,000 

, 000 , 000 , 000,000 

50076 DATA 000,000,000,000,000,000,000,000,000,000 

, 000 , 000 , 000,000 

50077 DATA 000,000,000,000,000,000,000,000,000,000 
,255,255,255,255 

50078 DATA 255,255,255,255,255,255,255,255,255,255 
,255,255,255,255 

50079 DATA 255,255,255,255,255,255,255,255,255,255 
,255,255,255,255 

50080 DATA 128,000,000,000,000,000,000,000,000,000 

, 000 , 000 , 000,000 

50081 DATA 000,000,000,000,000,000,000,000,000,000 

, 000 , 000 , 000,000 

50082 DATA 000,000,000,000,193,255,255,255,255,255 
,255,255,255,255 
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50083 DATA 255,255,255,255,255,255,255,255,255,255 
,255,255,255,255 

50084 DATA 255,255,255,255,255,255,255,255,128,000 

, 000 , 000 , 000,000 

50085 DATA 000,000,000,000,000,000,000,000,000,000 

, 000 , 000 , 000,000 

50086 DATA 000,000,000,000,000,000,000,000,000,000 
,000,000,255,255 

50087 DATA 255,255,255,255,255,255,255,255,255,255 
,255,255,255,255 

50088 DATA 255,255,255,255,255,255,255,255,255,255 
,255,255,255,255 

50089 DATA 255,255,128,000,000,000,000,000,000,000 

, 000 , 000 , 000,000 

50090 DATA 000,000,000,000,000,000,000,000,000,000 

, 000 , 000 , 000,000 

50091 DATA 000,000,000,000,000,032,065,084,084,065 
,066,069,065,067 

50092 DATA 066,076,073,078,066,082,073,066,067,076 
,079,083,081,085 

50093 DATA 073,084,067,085,084,032,068,073,071,032 
,068,082,073,078 

50094 DATA 068,082,079,080,069,032,032,032,069,065 
,084,032,069,078 

50095 DATA 084,069,069,088,080,076,069,088,065,077 
,070,069,069,068 

50096 DATA 083,084,065,084,070,073,076,076,071,069 
,084,032,071,073 

50097 DATA 086,069,071,079,032,032,071,082,065,066 
,072,069,065,084 

50098 DATA 072,073,068,069,072,079,076,068,073,078 
,086,069,074,079 

50099 DATA 073,078,074,085,077,080,075,073,076,076 
,076,065,083,072 

50100 DATA 076,079,079,075,077,079,086,069,078,032 
,032,032,079,070 

50101 DATA 070,069,079,080,069,078,079,082,068,069 
,080,065,085,083 

50102 DATA 080,073,067,075,080,076,065,067,080,076 
,069,065,080,082 

50103 DATA 065,089,082,065,073,083,082,069,067,082 
,082,069,068,069 

50104 DATA 072,069,076,080,082,079,087,032,083,065 
,067,075,083,069 

50105 DATA 065,082,083,069,078,068,083,069,084,032 
,083,072,065,082 

50106 DATA 083,032,032,032,083,080,065,082,083,076 
,069,069,083,067 

50107 DATA 079,082,083,084,079,082,084,065,075,069 
,084,065,076,075 

50108 DATA 084,073,069,032,085,078,084,073,087,065 
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,073,084,087,032 

50109 DATA 032,032,083,065,086,069,076,079,065,068 
,065,078,067,072 

50110 DATA 065,078,084,083,066,065,071,032,066,065 
,082,076,066,065 

50111 DATA 083,075,066,069,069,083,066,079,065,084 
,066,079,087,032 

50112 DATA 067,065,084,084,067,065,086,069,067,072 
,065,078,067,073 

50113 DATA 082,067,067,073,082,067,067,073,084,089 
,067,089,067,076 

50114 DATA 068,079,079,082,068,079,087,07B,068,082 
,085,071,068,085 

50115 DATA 078,071,069,065,083,0B4,069,085,082,089 
,070,065,077,073 

50116 DATA 070,069,078,067,070,079,079,068,071,073 
,065,078,071,079 

50117 DATA 065,084,083,075,073,078,072,065,082,066 
,072,073,076,076 

50118 DATA 072,073,086,069,072,079,076,068,072,079 
,078,069,073,083 

50119 DATA 076,065,075,069,069,076,075,078,073,070 
,077,065,083,084 

50120 DATA 077,069,078,032,077,073,076,075,078,079 
,082,084,079,065 

50121 DATA 082,083,079,068,089,083,080,073,071,083 
,080,076,065,078 

50122 DATA 080,079,076,089,080,082,073,069,082,079 
,067,075,082,079 

50123 DATA 068,032,082,079,080,069,082,085,073,078 
,083,065,073,076 

50124 DATA 083,067,089,076,083,072,069,069,083,073 
,082,069,083,076 

50125 DATA 065,086,083,079,085,084,083,080,082,073 
,083,084,065,070 

50126 DATA 083,084,069,087,083,087,079,082,084,065 
,086,069,084,069 

50127 DATA 084,072,084,073,082,069,084,082,065,067 
,084,082,069,069 

50128 DATA 084,082,069,078,085,078,084,069,085,080 
,032,032,087,065 

50129 DATA 076,076,087,065,088,032,087,069,083,084 
,087,072,069,089 

50130 DATA 087,073,078,069,087,079,079,068,079,070 
,070,032,089,079 

50131 DATA 085,032,080,082,079,071,083,076,069,069 
,069,065,084,069 

50132 DATA 083,069,065,032,083,072,079,082,065,083 
,072,079,083,072 

50133 DATA 073,080,087,065,084,069,077,065,078,032 


,066,069,069,072 
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50134 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50135 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50136 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50137 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50138 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50139 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50140 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50141 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50142 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50143 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50144 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50145 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50146 DATA 032,032,032,032,065,082,079,085,065,082 
,082,079,079,086 

50147 DATA 069,082,066,085,067,075,070,082,069,083 
,071,079,076,068 

50148 DATA 076,069,065,064,076,069,078,071,076,079 
,084,085,066,079 

50149 DATA 087,076,080,079,084,069,082,079,085,071 
,083,069,086,069 

50150 DATA 084,072,069,032,084,072,082,079,084,079 
,032,032,084,079 

50151 DATA 087,065,085,080,032,032,068,079,087,078 
,087,073,067,075 

50152 DATA 087,073,084,072,072,069,082,069,087,079 
,079,068,070,079 

50153 DATA 082,032,065,077,079,078,066,069,084,087 
,065,067,082,079 

50154 DATA 066,069,083,073,085,078,068,069,067,065 
,084,084,067,073 

50155 DATA 082,067,067,073,082,067,067,089,067,076 
069 085 082 089 

50156 DATA 070,065,077,073,071,073,065,078,071,079 
,065,084,077,069 

50157 DATA 078,032,079,068,089,083,080,079,076,089 
,080,082,073,069 

50158 DATA 083,067,089,076,083,072,069,069,083,073 
,082,069,083,076 

50159 DATA 065,086,084,073,082,069,069,065,084,069 
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v 073,078 v 032,032 

50160 DATA 065,084,032,032,079,078,032,032,066,065 
,071,032,032,032 

50161 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50162 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50163 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50164 DATA 032,032,032,032,032,032,032,032,179,173 
,000,201,201,133 

50165 DATA 048,014,201,193,016,010,233,132,170,189 
,026,201,076,088 

50166 DATA 202,234,032,210,255,096,003,003,004,003 
,003,004,004,003 

50167 DATA 000,000,000,000,000,000,000,000,000,005 
,004,003,007,004 

50168 DATA 006,003,000,005,007,005,003,003,003,003 
,003,003,003,004 

50169 DATA 003,005,004,003,003,005,004,004,004,004 
,004,004,007,003 

50170 DATA 003,005,004,004,006,004,004,003,003,003 
,000,003,006,010 

50171 DATA 013,016,020,024,027,027,027,027,027,027 
,027,027,027,027 

50172 DATA 032,036,039,046,050,056,059,059,064,071 
,076,079,082,085 

50173 DATA 088,091,094,097,101,104,109,113,116,119 
,124,128,132,136 

50174 DATA 140,144,148,155,158,161,166,170,174,180 
,184,188,191,194 

50175 DATA 197,069,065,068,069,082,083,066,076,079 
,087,084,069,082 

50176 DATA 065,082,068,070,082,079,077,073,071,072 
,084,079,085,084 

50177 DATA 082,079,085,078,068,068,079,087,078,079 
,078,032,195,072 

50178 DATA 065,082,089,066,068,084,072,065,084,211 
,067,089,076,076 

50179 DATA 065,084,079,032,087,072,073,067,072,067 
,072,065,078,078 

50180 DATA 069,076,087,072,069,082,069,078,079,087 
,212,072,069,084 

50181 DATA 072,069,079,070,032,217,079,085,065,076 
,076,065,082,069 

50182 DATA 083,065,073,076,073,083,032,206,079,082 
,084,072,212,082 

50183 DATA 079,089,065,078,068,065,086,069,211,079 


,085,084,072,087 


50184 DATA 073,084,072,083,072,073,080,197,065,083 
,084,079,085,071 
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50185 DATA 072,215,069,083,084,072,073,076,076,072 
,065,082,066,079 

50186 DATA 085,082,073,078,071,089,079,085,087,072 
,073,076,069,076 

50187 DATA 065,078,068,069,065,067,072,073,083,076 
,065,078,068,087 

50188 DATA 073,078,068,083,073,068,069,065,078,084 
,083,069,065,073 

50189 DATA 078,032,224,024,240,015,188,086,201,170 
,185,147,201,032 

50190 DATA 210,255,200,202,208,246,096,169,157,032 
,210,255,096,000 

50191 DATA 000,000,000,000,000,000,000,000,000,000 

, 000 , 000 , 000,000 

50192 DATA 201,255,255,255,255,255,255,255,255,255 
,255,255,255,255 

50193 DATA 255,255,255,?53,255,255,255,255^255,255 
,255,255,255,255 

50194 DATA 255,255,255,255,128,000,000,000,000,000 

, 000 , 000 , 000,000 

50195 DATA 000,000,000,000,000,000,000,000,000,000 

, 000 , 000 , 000,000 

50196 DATA 000,000,000,000,000,000,000,000,255,255 
,255,255,255,255 

50197 DATA 255,255,255,255,255,255,255,255,255,255 
,255,255,255,255 

50198 DATA 255,255,255,255,255,255,255,255,255,255 
y 255 , 255 y 128 y 000 

50199 DATA 000,000,000,000,000,000,000,000,000,000 

, 000 , 000 , 000,000 

50200 DATA 000,000,000,000,000,000,000,000,000,000 

, 000 , 000 , 000,000 

50201 DATA 000,000,169,001,133,199,169,000,141,134 
,002,169,042,096 

50202 DATA 255,255,255,255,169,000,133,199,096,255 
,255,255,255,255 

50203 DATA 255,255,255,255,255,255,169,147,032,210 
,255,169,000,133 

50204 DATA 251,169,160,133,252,160,000,177,251,145 
,251,200,208,249 

50205 DATA 230,252,165,252,201,192,208,239,169,054 
,133,001,169,000 

50206 DATA 133,251,169,224,133,252,160,000,177,251 
,145,251,200,208 

50207 DATA 249,230,252,165,252,201,000,208,239,169 
,053,133,001,169 

50208 DATA 018,141,130,232,141,208,230,141,142,233 
,169,017,141,004 

50209 DATA 233,141,095,229,141,038,233,141,112,233 
,169,021,141,087 

50210 DATA 229,096,000,000,208,255,255,255,255,255 
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,255,255,255,255 

50211 DATA 255,255,255,255,255,255,255,255,255,255 
255 255 255 255 

50212 DATA 255,255,255,255,255,255,255,255,128,000 

, 000 , 000 , 000,000 

50213 DATA 000,000,000,000,000,000,000,000,000,000 


, 000 , 000 , 000,000 

50214 DATA 000,000,000,000,000,000,000,000,000,000 

,000,000,255,255 , 

50215 DATA 255,255,255,255,255,255,255,255,255,255 
,255,255,255,255 

50216 DATA 255,255,255,255,255,255,255,255,255,255 
255 255 255 255 

50217 DATA 255,255,128,000,000,000,000,000,000,000 
, 000 , 000 , 000,000 

50218 DATA 000,000,000,000,000,000,000,000,000,000 
, 000 , 000 , 000,000 

50219 DATA 000,000,000,000,000,000,238,207,205,200 
,192,073,240,003 

50220 DATA 076,236,192,076,239,192,255,255,153,060 
,205,224,195,240 

50221 DATA 003,076,198,192,076,205,192,255,255,255 
,153,141,205,192 

50222 DATA 125,240,003,076,081,192,076,088,192,000 
,000,000,157,060 

50223 DATA 205,224,195,240,003,076,108,192,076,115 
,192,000,000,000 


50224 DATA 153,060,205,192,195,240,003,076,129,192 
,076,135,192,255 

50225 DATA 255,255,157,162,205,224,093,240,003,076 
,193,192,076,205 

50226 DATA 192,255,255,255,1^2,195,016,006,153,060 
,012,076,184,194 

50227 DATA 136,076,184,194,000,000,192,195,016,006 
,153,060,205,076 

50228 DATA 205,194,076,187,194,000,000,000,128,255 
,255,255,255,255 

50229 DATA 255,255,255,255,255,255,255,255,255,255 
,255,255,255,255 

50230 DATA 255,255,255,255,255,255,255,255,255,255 
,255,255,128,000 

50231 DATA 000,000,000,000,000,000,000,000,000,000 

, 000 , 000 , 000,000 

50232 DATA 000,000,000,000,000,000,000,000,000,000 

, 000 , 000 , 000,000 

50233 DATA 000,000,255,255,255,255,255,255,255,255 
,255,255,255,255 

50234 DATA 255,255,255,255,255,255,255,255,255,255 
,255,255,255,255 

50235 DATA 255,255,255,255,255,255,128,000,000,000 

, 000 , 000 , 000,000 
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50236 DATA 000,000,000,000,000,000,000,000,000,000 

, 000 , 000 , 000,000 

50237 DATA 000,000,000,000,000,000,000,000,000,000 
,169,001,141,025 

50238 DATA 208,162,194,160,000,173,018,208,016,004 
,162,001,160,002 

50239 DATA 142,018,208,140,033,208,032,048,205,173 
,013,220,041,001 

50240 DATA 240,003,076,049,234,076,188,254,200,105 
,000,020,255,002 

50241 DATA 234,234,165,214,201,017,208,008,032,064 
,205,169,145,032 

50242 DATA 072,069,076,080,032,032,032,032,032,032 
,032,032,032,032 

50243 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50244 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50245 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50246 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50247 DATA 032,032,032,032,032,032,032,032,032,032 
,032,072,069,076 

50248 DATA 080,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50249 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50250 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50251 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50252 DATA 032,032,032,032,004,004,000,000,045,045 
,000,000,065,000 

50253 DATA 080,065,065,065,065,064,032,032,032,032 
,032,032,032,032 

50254 DATA 032,032,032,032,032,032,032,032,032,032 
,032,084,072,073 

50255 DATA 083,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50256 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,032 

50257 DATA 032,032,032,032,032,032,032,032,032,032 
,032,032,032,255 

50258 DATA 250,250,251,253,040,006,140,188,255,072 
,136,175,238,104 

50259 DATA 000,020,250,002,248,172,129,036,000,144 
,045,152,106,016 

50260 DATA 130,007,000,032,248,014,127,090,255,255 
255 219 255 255 

50261 DATA 255,255,127,255,255,255,255,247,255,124 
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,255,127,251,255 

50262 DATA 255,255,251,188,251,122,255,255,255,255 
,250,255,000,230 

50263 DATA 141,128,032,047,136,160,040,008,144,062 
,205,000,127,014 

50264 DATA 128,016,000,024,155,004,013,008,030,002 
,024,000,000,000 

50265 DATA 000,062,066,223,219,251,184,255,242,059 
,218,178,255,251 

50266 DATA 255,255,191,251,255,247,247,223,255,191 
,255,159,255,251 

50267 DATA 255,255,250,242,250,053,032,004,012,040 
,211,008,008,131 

50268 DATA 162,040,000,020,186,010,240,138,129,000 
,008,016,045,008 

50269 DATA 042,016,002,007,000,000,144,006,063,082 
,223,255,255,219 

50270 DATA 255,191,255,255,243,255,255,255,255,243 
,255,053,255,127 

50271 DATA 243,253,255,255,251,184,255,122,255,255 
,254,255,250,119 

50272 DATA 000,098,135,000,000,043,128,032,008,008 
,144,022,076,000 

50273 DATA 059,014,000,016,000,024,026,004,001,008 
,030,002,008,000 

50274 DATA 000,000,000,062,173,240,207,201,001,240 
,003,076,049,234 

50275 DATA 032,040,201,076,049,234,005,032,114,195 
,234,234,234,234 

50276 DATA 234,234,234,234,234,234,234,234,234,234 
,234,234,234,234 

50277 DATA 234,234,234,234,234,234,234,234,234,234 
,173,240,207,201 

50278 DATA 001,240,003,076,049,234,032,040,201,076 
,049,234,005,036 

50279 DATA 000,144,045,136,106,016,134,007,000,000 
,216,014,127,090 

50280 DATA 223,255,255,219,255,255,255,255,127,255 
,255,255,255,247 

50281 DATA 255,125,255,102,013,000,032,047,008,032 
,012,008,144,062 

50282 DATA 077,000,127,015,128,016,000,024,155,004 
,005,008,030,002 

50283 DATA 008,000,000,000,000,062,082,223,223,251 
,188,255,242,187 

50284 DATA 218,178,255,251,255,255,191,255,255,247 
,247,223,255,191 

50285 DATA 255,143,255,249,255,255,250,242,250,245 
,032,004,140,040 

50286 DATA 215,072,136,135,162,040,000,020,250,010 
,240,136,129,004 
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50287 DATA 008,144,045,008,042,000,002,007,000,000 
,144,006,063,082 

50288 DATA 223,255,255,219,255,191,255,255,243,255 
,255,255,255,243 

50289 DATA 255,117,255,127,243,253,255,255,251,184 
,255,114,255,255 

50290 DATA 254,255,250,119,000,226,133,128,032,175 
,128,032,008,008 

50291 DATA 144,022,076,000,063,014,000,016,000,024 
,026,004,005,008 

50292 DATA 030,128,008,000,000,000,000,000 
READY. 


Daunting, isn't it? 


How it works 

The basis for this routine lies in a program developed by Allen Webb, 
although it's been modified quite a bit. To use it you'll need a short 
Basic subroutine of the form: 

10 PRINT:PRINT"WHAT NOW ?":PRINT:GOSUB1000 
1000 SYS 49152:IF PEEK(52693) = 255 THEN 1000 
1002 VE = PEEK(52689):NO = PEEK(52690):LI = PEEK(52691) 

1004 RETURN 

Here VE and NO are analogous to the verb and noun numbers con¬ 
tained in the earlier Basic parser, and LI belongs to the mysterious 
link words. 

The routine works by taking the first, second and last words that 
have been typed in, shortening (if the word was, say, UNLOCK) or 
lengthening (if the word was, say, GO) them to contain four 
characters, and then comparing those words against a table held 
in memory. Pressing the back-arrow key will delete a command, and 
pressing the asterisk key will repeat a command if you want to, for 
example, go north five times without typing it in five times. 

If the routine comes across something that it doesn't recognise, then 
it prints up the message: 

"I don't understand you. I'm afraid." 

and repeats the prompt symbol (a reverse field asterisk). 
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If you want to change that message, the ASCII codes for the letters 
and characters printed lie in memory from $C212 to $C235: 35 of 
them in all. If you lengthen or shorten the message, be careful to 
change that part of the program which checks to see that all 35 
characters have been printed out. This is at location $C1 F4, the CPY 
#$23. If your message only had 20 characters, then change that 
to a CPY #$14 (hexadecimal mode now, remember?). 

If you're a competent machine-code programmer, you'll be able to 
work out how the program achieves its aims, but if you're not it 
will probably take the rest of this book to explain everything, so in¬ 
stead we'll concentrate on how you'd go about using the routine 
in your own programs. 


Amending the routine 

As you might imagine, what you'd have to alter to use this routine 
yourself is the word table from location $C500 to location $CBFF. 

First of all, you'll need to draw up a list of verbs, nouns and link 
words. Link words? Well, normally we'd just check for a 
VERB...NOUN input of the form: 

GO NORTH 
OPEN DOOR 

or whatever. However, by judicious use of these link words we can 
check for more complex things. For example: 

OPEN RED DOOR 

GIVE KEY TO SMITH 

TALK TO ROBOT 

UNLOCK BLUE FILING CABINET 

and so on. In other words, if we have an alternative list of words 
that the routine can understand, as well as all the verbs and nouns, 
we can build up quite complicated sentences and thus enhance our 
adventure games. 

Let's set about starting a small game. Our verbs will be GET, DROP, 
OPEN, CLOSE, the nouns will be KEY, DOOR, CABINET, CUP¬ 
BOARD, and the link words will be RED, BLUE, THE. 

Looking at locations $C500 to $C50F, we'll need to alter these to 
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cope with the verbs GET, DROP, OPEN, CLOSE. All you have to 
do is type in the ASCII values of the first four letters of each word 
(or the number of letters and a suitable number of spaces) into 
memory. The result would be: 

.:C500 47 45 54 20 44 52 4F 50 
.:C508 4F 50 45 4E 43 4C 4F 53 

So if you ran the little Basic routine given earlier and typed in GET, 
location 52689 would contain a 1, because it's the first verb on the 
list. 

Now to type the nouns in. They start at $C600, so we'll have to alter 
the first 16 bytes (four per noun) to read: 

.:C600 4B 45 59 20 44 4F 4F 52 
.:C608 43 41 42 49 43 55 50 42 

Now if you run that Basic routine and type in OPEN DOOR, loca¬ 
tion 52689 would contain a 3 (for OPEN) and location 52690 would 
contain a 2 (for DOOR). 

Finally, the link words. These start in memory at location $C800, 
and we'd need to alter the first 12 bytes of this lot to read: 

,:C800 52 45 44 20 42 4C 55 45 
.:C808 54 48 45 20 20 20 20 20 

So, typing in OPEN RED DOOR would put the same values in loca¬ 
tions 52689 and 52690 as before, but also a 1 into location 52691, 
and your program would now know that the player had typed in 
the third verb, the first link word and the second noun. 

By judicious use of link words you can get some reasonably com¬ 
plicated inputs, and your adventures will grow accordingly. 


Conclusion 

Understanding what the player has typed in is one of the many keys 
to producing a great adventure. If your room description contains 
the sentence: 


THERE IS A BLUE DOOR TO THE NORTH, AND A SOLID WALL 
TO THE EAST. 



and a player types in: 

SMASH THE WALL 

it's not going to look very good if the program responds with: 

I DON'T KNOW WHAT A WALL IS. 
or even worse: 

THERE ISN'T A WALL HERE. 

Just because you expect the player to type in OPEN BLUE DOOR 
doesn't mean that he will. So be careful, and with a little bit of time 
and effort while writing the game you'll be on your way to rivalling 
Level Nine. 

However, one of Level Nine's big secrets is cramming large room 
descriptions into small portions of memory, so we'll take a look at 
how to do that in Chapter 7. 
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7 

Text Compression 


Back in the days of innocence and Exploring Adventures on the 64 
we never talked about text compression at all. Room descriptions 
were kept short, usually less than two screen lines in length, and 
as a result of this those of you who are masters of producing glorious 
prose were a little bit hampered. 

In those early programs we used strings because, quite frankly, it 
is a lot easier for a beginner. If you have an adventure with, say, 
50 locations in it, then dimension a string P$(50), you could have 
P$(1) containing the description for location one, P$(2) for room two, 
and so on. However, this led to room descriptions of the 'YOU ARE 
IN A DARK ALLEYWAY' type, which doesn't really tell the player 
much about what is going on. 

I did see a couple of games based on the 'Exploring Adventures' 
series that had used ordinary PRINT statements to print out the room 
descriptions (see 'The Lost Wallet' program in Chapter 8 for an ex¬ 
ample of this). The only trouble with this approach is that it eats 
up memory, always a precious commodity in adventure games. It 
also requires a nest of ON...GOTO loops to direct program flow to 
the correct description. You could use a computed GOTO as describ¬ 
ed in Chapter 4, but you would still sacrifice vast amounts of 
memory. 

The solution is obviously to compress the text in the program, and 
then expand it again when it comes to printing out the location 
descriptions (or messages) on the screen. The method I'm about 
to describe is not the most memory efficient in the world, although 
it will save you up to around 30 per cent: not to be sneezed at. 

It has the merit of being pretty easy to understand, and as long as 
you have a pencil and paper ready when you type in your location 
descriptions, it is also fairly easy to use. 


147 



Tokenising 


As you go through your room descriptions, it soon becomes apparent 
that a large number of words are used over and over again. Words 
like AND and THE crop up quite frequently, and not only by 
themselves eiTHEr! Words like raTHEr, anoTHEr, and so on, all have 
the word THE contained in them. Similarly, rANDom, abANDon and 
others all have AND in them. You might find that you're using the 
word DOOR a lot, or PATH, or any one of a group of words. 

Rather than typing out the same word over and over again, wouldn't 
it be better to replace it with a symbol (or token) which, when en¬ 
countered in the routine that prints out location descriptions, could 
be expanded back to the original word again. 

Let's take a simple example. 

Z$ = "There is a [cbmd] to the north." 

where [cbmd] indicates 'press the CBM logo key and the d key at 
the same time'. 

Here I've assumed that the adventure is being written in upper/lower 
case, which leaves us with about sixty symbols, or tokens, that we 
can conveniently use. 

What we need to do now is to write a short routine that looks at 
the string Z$ and checks every character in it. Perhaps something 
like: 

1000 FOR 1 = 1 TO LEN(Z$) 

1002 A$ = MID$(Z$,I,1):A = ASC(A$) 

1004 IF A= 172 THEN PRINT "DOOR";:GOTO1008 
1006 PRINTA$; 

1008 NEXT I 
1010 RETURN 

Not very satisfactory, but we've got to start somewhere. 

In this short example we're checking the ASCII value of each 
character contained within the string Z$. If that ASCII value is equal 
to 172, then we print out the word DOOR, otherwise we print out 
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that part of the string which has just been checked. 


Obviously you'd have more than one token within your programs, 
and so the routine would need to be expanded a little: 

1000 FOR I = 1 TO LEN(Z$) 

1002 A$ = MID$(Z$,I,1):A = ASC(A$) 

1004 IF A= 172 THEN PRINT "DOOR";:GOTO1020 
1006 IF A = 174 THEN PRINT "SOUTH";:GOTO1020 
1008 IF A= 170 THEN PRINT "NORTH";:GOTO1020 

1010. 

1012. 

1014 etc. 

1018 PRINT A$; 

1020 NEXT I 
1022 RETURN 

This is all very well when there are only three or four tokens to be 
checked, but if you're using sixty or more life could get a little hairy, 
and the amount of memory needed to check every symbol becomes 
a bit ridiculous. 


This particular Basic approach could be shortened, by (for exam¬ 
ple) assigning a string C$ to be equal to all the tokenised characters. 
Thus you might have something like: 

C$ = "[cbma,cbmb,cbmc,cbmd ... etc.]" 

and another array B$(60) to contain all the words associated with 
C$. For instance, if [cbma] was meant to represent the word 'cor¬ 
ridor', the first entry in the array B$ would be: 

B$(1) = "corridor" 


Then the program routine to check for all the tokens might look like 
this: 

1000 FOR 1 = 1 TO LEN(Z$) 

1002 A$ = MID$(Z$,I,1) 

1004 FOR J = 1 TO 60 

1006 IF C$(I) = A$ THEN PRINT B$(l);:GOTO1012 
1008 NEXTJ 
1010 PRINT A$; 

1012 NEXTI 
1014 RETURN 
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Not a very satisfactory program, in that we're possibly jumping out 
of the inner J loop, but it does work. The major drawback to this 
approach is that it takes a fair amount of time to print out any par¬ 
ticular location description (or message), and even when it does print 
it out it looks very jumpy on the screen: some words (the tokenised 
ones) are printed out very quickly, while others are printed out one 
character at a time. 

So, as ever, the solution has to lie in machine code, and the follow¬ 
ing collection of routines does the job for us. 


Into machine code 

For the purpose of this routine, we're assuming that the special 
characters used have ASCII values in the range 133 to 192. Only 
one character within this range might cause us any problems, and 
that is ASCII character 157: the ASCII value of the cursor left key. 
We'll see why in a moment. 

The first thing to do is to find a spare portion of memory. Here I've 
used locations $C900 to $CA66, but you can relocate the code to 
be just about anywhere you like. 

Then you must decide what each token will represent. The listings 
given here come from a real-life adventure, they weren't just made 
up for this book. We start with token number 133 (the first function 
key 'FI'): I decided to let this indicate the letters 'EAD': a common 
occurrence in various words. 

'F3' indicates the letters 'ERS', 'F5' indicates the word 'BLOW' (the 
game had a nautical flavour, and winds kept blowing from various 
directions), and so on throughout the rest of the ASCII characters 
up to and including ASCII character 192 (which incidentally 
represents 'IN ': note the space). 

Now all the room descriptions can be typed in. Say, for example, 
room one has the description: 

'YOU ARE IN A LOW CHANNEL." 

Obviously you'll want to use longer descriptions than that, but just 
for the sake of an example we'll stick to something short and sweet. 
The word 'YOU' is, in this list of tokens, represented by ASCII 
character 183, produced by typing in [cbm and y]. The word 'ARE' 
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is represented (don't ask me why!) by [cbm and m], 'IN' is [shift 
and *], 'A LOW' is typed in as normal, and 'CHANNEL' is [ctrl and 4]. 

So, instead of having: 

Z$ = "YOU ARE IN A LOW CHANNEL.'' 

We now have: 

Z$ = "[cbmy,cbmm,shift*]A LOW [ctrl4]." 

Typed in using tokens instead of words, this gives us a Z$ contain¬ 
ing 11 characters, instead of 25. In this case, then, a saving of over 
50 per cent in terms of memory. 

To go through the first 8 characters used in this example, we come 
up with the following table: 


ASCII value 

Key combination 

Word 

133 

FI 

EAD 

134 

F3 

ERS 

135 

F5 

BLOW 

136 

F7 

TER 

137 

F2 

ARD 

138 

F4 

FROM 

139 

F6 

IGHT 

140 

F8 

OUT 


Now for the important part, getting the machine-code listing 
working! 


B* 


PC 

SR 

AC 

XR 

YR 

SP 




9 5766 

33 

00 

4E 

00 

F6 




s C91A 

03 

03 

04 

03 

03 

04 

04 

03 

8 C922 

00 

00 

00 

00 

00 

00 

00 

00 

s C92A 

00 

05 

04 

03 

07 

04 

06 

03 

8 C932 

00 

05 

07 

05 

03 

03 

03 

03 

8 C93A 

03 

03 

03 

04 

03 

05 

04 

03 

8 C942 

03 

05 

04 

04 

04 

04 

04 

04 

s C94A 

07 

03 

03 

05 

04 

04 

06 

04 

8 C952 

04 

03 

03 

03 

00 

03 

06 

OA 

8 C95A 

OD 

10 

14 

18 

IB 

IB 

IB 

IB 

s C962 

IB 

IB 

IB 

IB 

IB 

IB 

20 

24 
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s C96A 

27 

2E 

32 

38 

3B 

3B 

40 

47 

s C972 

4C 

4F 

52 

55 

58 

5B 

5E 

61 

8 C97A 

65 

68 

6D 

71 

74 

77 

7C 

80 

s C982 

84 

88 

8C 

90 

94 

9B 

9E 

A1 

s C98A 

A6 

AA 

AE 

B4 

B8 

BC 

BF 

C2 

s C992 

C5 

45 

41 

44 

45 

52 

53 

42 

8 C99A 

4C 

4F 

57 

54 

45 

52 

41 

52 

s C9A2 

44 

46 

52 

4F 

4D 

49 

47 

48 

s C9AA 

54 

4F 

55 

54 

52 

4F 

55 

4E 

s C9B2 

44 

44 

4F 

57 

4E 

4F 

4E 

20 

s C9BA 

C3 

48 

41 

52 

59 

42 

44 

54 

a C9C2 

48 

41 

54 

D3 

43 

59 

4C 

4C 

s C9CA 

41 

54 

4F 

20 

57 

48 

49 

43 

8 C9D2 

48 

43 

48 

41 

4E 

4E 

45 

4C 

8 C9DA 

57 

48 

45 

52 

45 

4E 

4F 

57 

8 C9E2 

D4 

48 

45 

54 

48 

45 

4F 

46 

s C9EA 

20 

D9 

4F 

55 

41 

4C 

4C 

41 

s C9F2 

52 

45 

53 

41 

49 

4C 

49 

53 

8 C9FA 

20 

CE 

4F 

52 

54 

48 

D4 

52 

s CA02 

4F 

59 

41 

4E 

44 

41 

56 

45 

sCAOA 

D3 

4F 

55 

54 

48 

57 

49 

54 

s CA12 

48 

53 

48 

49 

50 

C5 

41 

53 

sCAlA 

54 

4F 

55 

47 

48 

D7 

45 

53 

s CA22 

54 

48 

49 

4C 

4C 

48 

41 

52 

8 CA2A 

42 

4F 

55 

52 

49 

4E 

47 

59 

8 CA32 

4F 

55 

57 

48 

49 

4C 

45 

4C 

s CA3A 

41 

4E 

44 

45 

41 

43 

48 

49 

s CA42 

53 

4C 

41 

4E 

44 

57 

49 

4E 

8 CA4A 

44 

53 

49 

44 

45 

41 

4E 

54 

8 CA52 

53 

45 

41 

49 

4E 

20 

BC 

56 


If you look at memory locations $C91 A to $C955 you'll see a collec¬ 
tion of numbers from 0 to 7. These indicate the length of each word. 
From the table above you can see that ASCII key 133 has a length 
of 3 characters, and so the first entry in this table is a 3. ASCII key 
135 has 4 characters in it, and so the third entry has a 4 in it. Type 
in all the numbers depending on which words you choose to repre¬ 
sent as symbols. 

Now look at memory locations $C956 to $C992. These are used to 
tell the machine-code program the location of the word represented 
by each token. The words are stored in ASCII format in locations 
$C993 to $CA56. 

The first word, 'EAD', has 3 letters in it (memory location $C91 A). 
The letters 'EAD' are stored in memory in locations $C993, $C994 
and $C995. Thus they are offset from the start of the word table 
by nothing (they're right at the start of the table), and so the entry 
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at location $C956 is a 0: look right at the start of the listing for the 
first word. 


The second word, 'ERS', also has 3 letters in it (memory location 
$C91 B). The letters 'ERS' are stored in locations $C996, $C997 and 
$C998. Thus they are offset from the start of the word table by 3 
characters, and so the entry at location $C957 is a 3: look 3 characters 
into the word table for the second word. 

The third word, 'IGHT', has 4 letters in it (memory location $C91C). 
The letters 'IGHT' are stored in locations $C999, $C99A and $C99B. 
Thus they are offset from the start of the word table by 6 characters 
(the previous two words both had 3 characters in them), and so the 
entry at location $C958 is a six: look 6 characters into the word table 
for the third word. 

The fourth word, 'TER', again has 3 letters in it (memory location 
$C91 D). The letters 'TER' are stored in locations $C99C, $C99D and 
$C99E. Thus they are offset from the start of the word table by 10 
characters (3 + 3 + 4 for the previous 3 words), and so the entry at 
location $C959 is a 10 ($0A): look 10 characters into the word table 
for the fourth word. 

And so it goes on for all 60 words. Some of them weren't used 
(hence the zeros every now and again), and we eventually end up 
with three separate tables for the complete collection of words. One 
for how long each word is, one showing were it starts in memory 
offset from the start of the word table, and then the word table itself. 

Obviously this will change from adventure to adventure, and you 
won't always choose words that are the same length as the ones 
I used in this particular adventure. No problem, simply alter the en¬ 
try for the length of any word that has been changed, alter the loca¬ 
tion of that word in the word table, and finally alter the word table 
itself. 

The location of the words in the table might seem a daunting thing 
to type in, but it isn't really. A simple FOR ... NEXT loop and a PEEK 
and a POKE do the job for us. Like this: 

B = 0:FOR 1 = 0 TO 59:A= PEEK(51482+ l):B = B + A:POKE51579 + l 
,B:NEXT 

which just looks at all the word lengths and collectively adds them 
together. 
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All we need now is the machine-code routines to activate these 
tables, and the Basic routine to call them up. 


B* 

PC SR AC XR YR SP 
• s 77B2 33 00 9A 00 F6 


C901 

AD 

00 

C9 

C904 

C9 

85 


C906 

30 

OE 


C908 

C9 

Cl 


C90A 

10 

OA 


C90C 

E9 

84 


C90E 

AA 



C90F 

BD 

1A 

C9 

C912 

4C 

58 

CA 

C915 

EA 



C916 

20 

D2 

FF 

C919 

60 




LDA *C900 
CMP #*85 
BMI *C916 
CMP #*C1 
BPL *C916 
SBC #*84 
TAX 

LDA *C91A,X 
JMP *CA58 
NOP 

JSR *FFD2 
RTS 


B* 

PC SR AC XR YR SP 
•;678C 33 00 74 00 F6 


CA58 

BC 

56 

C9 

LDY 

*C956,X 

CA5B 

AA 



TAX 


CA5C 

B9 

93 

C9 

LDA 

*C993,Y 

CA5F 

20 

D2 

FF 

JSR 

*FFD2 

CA62 

C8 



INY 


CA63 

CA 



DEX 


CA64 

DO 

F6 


BNE 

*CA5C 

CA66 

60 



RTS 



Having got our enormous string Z$ to contain the room description, 
the Basic activator might look something like this: 

10000 FOR 1 = 1 TO LEN(Z$) 

10002 A = ASC(MID$(Z$,l,1)):POKE51456,A:SYS51457:NEXT 
10004 RETURN 

The RETURN assumes that you're calling this as part of a subroutine. 

The first part of the machine-code listing looks at the ASCII value 
of the character stored in memory location 51456. If it's less than 
133 ($85) or greater than 192 ($C1) then just jump to the internal 
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POM routine at $FFD2 and print the character out. 

Otherwise, subtract 132 from it ($84), load the accumulator with the 
length of the word from the first of our three tables, and jump to 
the next part of the routine, starting at memory location $CA58. 


This then finds where the word starts in the word table, and carries 
on reading and printing characters from that table until it comes to 
the end of the word: in other words, it's reached the end of the word 
length. 

If you prefer all this in Basic loader form: 

10 8E - 51456 i EE - 51814 

20 g 

30 FORI - 8E TO EE i READ A i POKE I , A i NEXT 
40 g 

50000 DATA 179,173,000,201,201,133,048,014,201,193 
,016,010,233,132 

50001 DATA 170,189,026,201,076,088,202,234,032,210 
,255,096,003,003 

50002 DATA 004,003,003,004,004,003,000,000,000,000 

, 000 , 000 , 000,000 

50003 DATA 000,005,004,003,007,004,006,003,000,005 
,007,005,003,003 

50004 DATA 003,003,003,003,003,004,003,005,004,003 
,003,005,004,004 

50005 DATA 004,004,004,004,007,003,003,005,004,004 
,006,004,004,003 

50006 DATA 003,003,000,003,006,010,013,016,020,024 
,027,027,027,027 

50007 DATA 027,027,027,027,027,027,032,036,039,046 
,050,056,059,059 

50008 DATA 064,071,076,079,082,085,088,091,094,097 
,101,104,109,113 

50009 DATA 116,119,124,128,132,136,140,144,148,155 
,158,161,166,170 

50010 DATA 174,180,184,188,191,194,197,069,065,068 
,069,082,083,066 

50011 DATA 076,079,087,084,069,082,065,082,068,070 
,082,079,077,073 

50012 DATA 071,072,084,079,085,084,082,079,085,078 
,068,068,079,087 

50013 DATA 078,079,078,032,195,072,065,082,089,066 
,068,084,072,065 

50014 DATA 084,211,067,089,076,076,065,084,079,032 
,087,072,073,067 

50015 DATA 072,067,072,065,078,078,069,076,087,072 
,069,082,069,078 
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50016 DATA 079,087,212,072,069,084,072,069,079,070 
,032,217,079,085 

50017 DATA 065,076,076,065,082,069,083,065,073,076 
,073,083,032,206 

50018 DATA 079,082,084,072,212,082,079,089,065,078 
,068,065,086,069 

50019 DATA 211,079,085,084,072,087,073,084,072,083 
,072,073,080,197 

50020 DATA 065,083,084,079,085,071,072,215,069,083 
,084,072,073,076 

50021 DATA 076,072,065,082,066,079,085,082,073,078 
,071,089,079,085 

50022 DATA 087,072,073,076,069,076,065,078,068,069 
,065,067,072,073 

50023 DATA 083,076,065,078,068,087,073,078,068,083 
,073,068,069,065 

50024 DATA 078,084,083,069,065,073,078,032,224,024 
,240,015,188,086 

50025 DATA 201,170,185,147,201,032,210,255,200 
READY. 

You may remember what we said earlier on about ASCII value 157, 
the cursor left key. You might sometimes want to use this in a room 
description, and the routine as it stands will go haywire if it en¬ 
counters ASCII 157, since the table indicates that it hasn't got any 
characters in it. 

You'll have to insert a check at location $CA58 to look for this 
character: 

CMP #$18 
BEQ $CA6B 


LDA #$9D 
JSR $FFD2 
RTS 

if you happen to want to use it. 


Conclusion 


The resulting output is satisfactorily fast (although not so fast that 
someone who can read very quickly couldn't keep up with it). 
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It looks professional, and allows your imagination scope to roam as 
you come up with the sort of lengthy room descriptions that might 
put Level Nine or Infocom to shame. Since it sits in the spare block 
of memory from locations $C000 to $CFFF it doesn't take up any 
of the available Basic memory: another bonus. 

Now that we've looked at all sorts of routines, parsers, text com¬ 
pression techniques, drawn maps and done just about everything 
else, let's write our first adventure using all the things that we've 
learnt so far. 

One of the criticisms of my earlier book, Exploring Adventures on 
the 64, was that it presented a lot of large adventures but no little 
ones: in other words the would-be adventure writer was plunged 
right in at the deep end. I've taken this opportunity to amend that, 
and in the next chapter we're going to write a small but advanced 
adventure called 'The Lost Wallet'. 
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8 

A Tape-based Adventure 


Putting together your first adventure can be a daunting experience, 
so this (relatively) short program. The Lost Wallet', has been con¬ 
cocted so that you can get some idea of how the parts come together 
to form the whole. 

In Chapters 6 and 7 we studied various techniques for producing 
parsers and compressing text. In this program we won't go into text 
compression at all, for the simple reason that my printer refuses to 
print out much more than the standard ASCII character set, and 
the methods discussed in Chapter 7 rely on all sorts of strange 
characters being used. 

However, you are certainly welcome to try to compress the text if 
you wish. The parser used in the program is the more advanced of 
the two Basic ones presented in Chapter 6. This allows the player 
to type in relatively complex instructions, while still letting the pro¬ 
grammer alter the adventure quite easily. Also, trying to absorb your 
first adventure is a lot easier if the entire program is written in Basic. 

Almost all of 'The Lost Wallet' is in Basic, but there is one short 
machine-code routine used that allows the Commodore 64 to have 
a computed GOTO statement. In other words, instead of having a 
whole sequence of ON VB-10 GOTO 1000,1010,1020 or whatever, 
we can now say SYS 49152,800+ VBT 0,0: a great memory sav¬ 
ing, and a great increase in the speed and efficiency of the program. 

To begin with, though, every adventure should have an introduction. 


Introducing the game 

A simple, straightforward exercise in using the PRINT statement, 
which looks like this: 
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10000 P0KES3281,71P0KE53280,9«PRINTCHR*(14)iPRINTC 
HR* (B> i PRINT" CCLR,BLKITM£ LOST HAL LET ! 

10002 F0RI»1T016:PRINT"CCBMY3"::F0RJ=lT050lNEXTJ,I 
10004 PRINT:PRINT"0NE DAY, WHILST STROLLING AROUND 
IN 

10006 PRINT"LONDON DOING SOME SHOPPING, YOU MU8T 
10008 PRINT"HAVE LOST YOUR WALLET. 

10010 PRINTIPRINT"WHEN YOU GOT HOME, IT WAS NO LON 
GER 

10012 PRINT"THERE. OF COURSE, YOU CAN'T REMEMBER 
10014 PRINT"WHERE YOU DROPPED IT, AND SO THE GOAL 
10016 PRINT"IN THIS MINI-ADVENTURE IS TO FIND YOUR 
WALLET AGAIN." 

10018 PR I NT i PR I NT "PLEASE HANG ON WHILE 1 READ SOME 
DATA IN." 

10020 RETURN 

This sets the background and border colours, goes into upper/lower 
case mode, prevents people using the CBM Logo and shift keys 
together to revert to upper case/graphics mode (that's the CHR$(8) 
statement), before clearing the screen and setting the print colour 
to black. 

Once a few instructions have been printed up the player is invited 
to wait while some data is read in, We encountered all the data in 
Chapter 5, so if you're setting about the marathon task of typing 
this whole listing in, load that data from wherever it was saved and 
begin by typing in the introduction. 

The first few lines of the program control a number of things, so 
here they are: 

0 TI*="000000" 

1 GOSUB10000:CP-1 

2 G0SUB5000 

3 PRINT:PRINT"PRESS SPACE TO START." 

4 GETSP*:IFSP*<>" "THEN4 

5 SO*»“YOU FIND SOMETHING OF INTEREST." 

10 60SUB20000 

15 G0SUB3000 
20 G0SUB390 

Line 0 simply sets the internal clock to zero, so that the room descrip¬ 
tion contained in lines 4090-4097 can tell you how long you've been 
playing the game. The GOSUB to line 10000 prints up the instruc¬ 
tions already encountered, while the variable CP is declared to be 
equal to one. In other words, your Current Position is in location 
one, the start of the game. 
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Line 2 is a GOSUB to read in all the data which was encountered 
in Chapter 5. Lines 3 and 4 are a simple message and wait for a key 
to be pressed before the game can begin, and line 5 declares a string 
variable. The GOSUB to line 20000 in line 10 reads some data in, 
and we'll look at this in a moment. Line 15 GOSUBs to line 3000, 
which is part of the routine that tells you where you are, what you 
can see, and where the obvious exits are, while line 20 GOSUBs 
to line 390 and really starts the game going: this is the input parser. 


Computed GOTOs 

20000 FORI“49152T049162iREADAiPOKEI,AiNEXTiRETURN 

20001 DATA 104,104,32,253,174,32,235,183,76,166,16 
8 

This short machine-code routine is the machine-code computed 
GOTO we talked about earlier. A mere eleven bytes long, it takes 
up no space in the 38K or so that is available for use, since it resides 
in the spare 4K block of memory starting at location $C000. It also 
saves a lot of space by replacing six or more lines of ON VB GOTO 
with a single SYS call. 


Where are we? 

3000 PRINT“CCLR,BLK3";1SY849152,3990+CP*10,0 
3002 IFEQ“ 1 THENPRINTiPRINT"AH, THAT LOOKS LIKE THE 
END OF THE SAME TO ME.“iG0T092 
3004 PRINT!PRINT"CRVS,BRN3VOU CAN SEEiCBLK3 
3006 A=0! FORI“lTONNj, IFOB7. (I) “CPTHENPRINTOB* (I) i A-A 
+ 1 

3008 NEXTs IFA»OTHENPRINT ,, WOTHINB MUCH." 

3010 PRINT:PRINT"CRV/S f 0RNS 3 OBVIOUS EXITS AREs CBLK3 
3012 A=»0sF0RI«0T03! IFPX <CP, I) < >OTHENPRINTDD* (I) ? " 
" 5 sA»A+l 

3014 NEXT! I FA*OTHENPR I NT 11 NOWHERE • M 

3015 PRINT 
3099 RETURN 

Line by line then: 

Line 3000: clear the screen, set the text colour to black, and jump 
to line number 3990 + CP*10. So if you're in location one, program 
flow goes to line 4000 (CP = 1), location two, then off to line 4010, 
and so on. 


160 




Line 3002: if the variable EO has been set, then the game is over, 
so print a suitable message and go to line 92, of which more later. 

Line 3004: print, in reverse field brown, the message 'YOU CAN 
SEE:'. 

Line 3006: set the variable A to zero, go through a loop of all the 
objects to see if any of them are in the current location, and if they 
are then print the long object description and increment the variable 
A. 

Line 3008: next step on the loop, and if at the end of it the variable 
A is still equal to zero then inform the player that there's not very 
much to look at in this location. 

Line 3010: print in reverse field orange the message 'OBVIOUS EX¬ 
ITS ARE:'. 

Line 3012: again set the variable A to equal zero and check for all 
the values of P%(CP,I) to determine whether or not an exit exists 
in a particular direction. If it does then print the appropriate part of 
the variable DD$ and increment the variable A. 

Line 3014: continue on round the loop, and if at the end of it the 
variable A is still equal to zero then tell the player that there is 
nowhere obvious to go. 

Line 3015: a simple PRINT statement to tidy up the screen output. 
Line 3099: return from this routine. 

As you can see, there are a lot of spare line numbers in the region 
3015-3099. If you wish to 'beef up' this program, or use this set of 
routines and subsequently amend them in your own programs, then 
there's plenty of spare space in there. 


Input parser 

390 PRINTiPRINT"CRVB,PUR3#HAT NOW 7COFF3 "|iIFAl«l 
THENPRINTAlSj aCMt»Al*iPRINTsLC-LEN<CM*)iPRINTiSOTO 
392 

391 60SUB60000s PRINT 8 LC a LEN(CM#) 

392 IFOB7.(19)=-lTHENMI«MI+l8 IFMI*10THEN850 

393 NO$=""s ... NO-OaIFA1»1THENA1*0# B0T0396 
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394 Al«OsFORI«lTOLC:IFMID*<CM* f I,5>*" AND "THENAl* 
=RIGHT*<CM*,LC-I-4> sAl*laA2=I 

395 NEXT:IFA1=1THENCM*«LEFT*(CM*,A2-1) 

396 FORI*lTQLCsIFMID*(CM*,I,l)<> n "THENVB*«VB*+MID 
*(CM*, 191) 8 NEXT 

397 Vl*=VB*sVB*®LEFT*(V1*,4>sFQRI-lTQNVsIFVB*(I)®V 
B*THENVB*I8 G0T0402 

39Q NEXT 

400 VB®7s N0*®VB*8 G0T0406 

402 IFLEN<VI*)+1>=LEN(CM*)THENNO-Os RETURN 

403 FORI=LCTQ1STEP—1sIFMID*(CM*,I, 1 > < >" "THENNO*«N 
0*+MID*(CM*,I,l)iNEXT 

404 NO*=RIGHT*(NO*,4>iF0RI«1T048A*(I)®MID*(NO*,5-1 
,1)8 NEXT 

405 NO*®" 11 s F0RI=lT04s NQ*®NO*+A*< I) 8 NEXT 

406 FORIslTONNsIFNO*®NQ*(I)THEN409 

407 NEXTI 

406 N0=0sRETURN 
409 NO®18 RETURN 

60000 CM *®""8 

60002 PRINT"C RVS,BLK 3 * C OFF,CL 3"a 

60005 GETZ*sIFZ*®""THEN60005 

60010 Z»ASC(Z*>8IFZ>95THEN60005 

600G0 ZL®LEN(CM*)8IFZL>27THEN60110 

60100 IFZ>31THENCM*»CM*+Z*aPRINTZ*|aG0T060002 

60110 IFZ®13ANDZLTHENPRINT" "8 RETURN 

60120 IFZ®20ANDZLTHENCM*=LEFT*(CM*,ZL-1>aPRINTZ** 

60140 G0T060002 

This is the input routine discussed in Chapter 6. The only part not 
really covered there is line 392. This checks to see whether you're 
carrying an ice-cream, and if you are then the counter Ml is in¬ 
cremented. Since this adventure all takes place on a hot day, if you 
carry the ice-cream about for more than ten moves it melts, and 
a suitable message to that effect is printed up in line 850. We'll see 
that a little later on. 

After coming back from the input routine, a few simple checks are 
needed on what was typed in, and this forms the next part of the 
program. 


Input checking 

21 IFNCX OTHENPRINT"PARDON?"a G0T020 

22 A=0:F0RI=1T0LEN<VB*>8 A«A+ASC(MID*(VB* f I,1> > 8 NEX 
T 
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23 IF(A=3190RA=2970RA=301)ANDVB*< >"HELP"THENPRINT" 
WATCH IT!":60T020 

24 IFVB*="WHY"THENPRINT"BECAUSE I SAID S0!"tG0T020 

25 IFVB=7ANDVB*<>"GO"THENPRINT"I'M SORRY, BUT I DO 
N'T UNDERSTAND THAT."*60T020 

26 IFNO=OANDNO$< >""THENPRINT"CRVS3WHATCQFF3 DO YOU 
WANT TO "VI*"?"iS0T020 

27 IF(VB>12ANDVB< >28ANDVB< >29ANDVB< >36)ANDNO-OTHEN 
PRINT"DO WHAT?"xQ0T020 

30 SYS49152,50+VB*30,0 

Line 21: if the value NO is less than zero this means that an unintelligi¬ 
ble word was typed in, so print out a message and go back for more. 

Line 22: declare our useful variable A to be equal to zero, and for 
each letter in the verb part of the input string (VB$) take the ASCII 
value of that character and add it to the variable A. 

Line 23: if the verb string isn't the word HELP, but does end up with 
one of the three values quoted in this line, then someone has typed 
in a rude word, so tell the player to 'watch it' and carry on with the 
game. This is the method mentioned earlier of checking for rude 
words without actually including them in the listing. If you want to 
make your adventures even more cryptic than this listing you could 
check for all verbs and nouns by taking the ASCII values, but 
remember that, as checked for here, different words can give the 
same result. What rude word is the same as typing in HELP, you 
may well wonder! 

Line 24: if the computer has responded to a certain request by say¬ 
ing NO, or something like that, the player may well be tempted to 
type in WHY NOT. If he does, this line takes care of it. 

Line 25: the input parser returns a value of seven as a verb number 
for any verb that it doesn't understand, so if that happens, and the 
verb typed in isn't the seventh one in our data list (the verb GO) 
then tell the player that you don't understand what he's typed in. 

Line 26: if there is an unrecognised noun, but a noun has definitely 
been typed in (in other words the noun typed in is not part of our 
data list) then tell the player that it is an unknown one by printing 
out a suitable message. I realise now that this could lead to some 
strange things being printed out, but you only get out of an adven¬ 
ture what you type into it! 

Line 27: if the verb is one of the group quoted, and no noun has 
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been typed in, then tell the player that he's trying to do something 
ridiculous. For instance, if the player just typed in GET, instead of 
GET SOMETHING, this is the response that would be used. 

Line 30: our machine-code computed GOTO command. In other 
words, take the verb number VB, multiply it by 30, and go to the 
resulting line number plus 50. 30 lines of code per verb should be 
ample for most purposes. 

The verbs occupy the space from line 80 to line 1132. Rather than 
give it as just a great big list of verbs, presumably unintelligible to 
most people, we'll split up each part of the code, and put the code 
on one page and the description for the code on the facing page. 
This is following the method used in the 'Exploring Adventures' series 
and should enable both newcomers and old hands to see what is 
going on. 


The complete list of verbs 

As already noted there are some 36 verbs in all, and starting with 
the first one here we go with a blow by blow description of what 
they all do. 


QUIT 


This is the verb used whenever a player wants to quit from the game 
currently in progress. As should always be the case (and if any 
reviewer is reading this, yes, I know I break my own rules occasional¬ 
ly!) there is a check to make sure that the player really wants to do 
this. 

80 REM QUIT 

82 PRINTS PRINT">1RE YOU SURE <Y OR «>? 

84 GET AS*s I FAS*= " Y "THEN92 
86 IFAS*= "N"THEN20 
88 G0T084 

92 PRINTsPRINT"PLAY AGAIN <Y OR «)?" 

94 GETA6*s IFAB**="Y"THENRUN 

96 IFA0*“"N“THENPRINT"CCLRJBYE ..."I END 

98 G0T094 
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Explanation 

Line 80: an explanatory REM statement. 

Line 82: print the 'ARE YOU SURE' message. 

Line 84: wait for a key to be pressed, and if the player types 'y' then 
GOTO line 92. 

Line 86: if the player types 'n' then return to line 20 for more input. 

Line 88: if the player types neither then sit and wait until he does. 

Line 92: see if the player wants to have another go at the game. 

Line 94: if he does then simply RUN the program. 

Line 96: if he doesn't, then clear the screen, print a final message, 
and end the program. 

Line 98: the player must press 'y' or 'n' to get out of this loop, so 
wait until he does. 


HELP 

Every adventure player wants some help at some time or another, 
and so this little piece of code takes care of that. 

110 PRINT"/'M AFRAID THAT / CAN'T GIVE YOU ANY 
HELP AT ALL. 11 160T020 


Explanation 

Just a simple PRINT statement to inform the player that he's going 
to get no help at all in this game. 
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SCORE 


Something we all want to do at some time or another, in adventure 
games you're usually trying to find out how well, or otherwise, you 
have done in the game. 

140 PRINT"IF YOU HAVEN'T FOUND YOUR WALLET THEN 
YOU HAVEN'T SCORED ANYTHING."iB0T020 


Explanation 

No explanation required really, just another PRINT statement to tell 
the player that, until he finds his wallet, he hasn't scored anything. 


INVENTORY, LOOK and REDESCRIBE 

Three verbs in one now. INVENTORY lets you see all the things that 
you're carrying, while LOOK and REDESCRIBE give you another 
look at the room description in case you forget what has been printed 
up on the screen. 

170 Z Z=0 a PRINT“CRVS,BRN3YOU ARE CARRYINGiCBLK3 
172 FORI-lTONNiIFOBX(I)—1THENPRINT0B*<I) a ZZ«ZZ+1 
174 NEXTaIFZZ=OTHENPRINT"#OTHING MUCH." 

176 60T020 
200 G0T015 
230 G0T015 


Explanation 

Line 170: set the variable ZZ, which determines how many objects 
you're carrying, to zero, and print in reverse field brown the message 
'YOU ARE CARRYING:'. 

Line 172: set up a loop to go through the entire list of objects to 
see if their current value is equal to -1. If it is, this means that it's 
being carried, so print out the longer object description and incre¬ 
ment the variable ZZ. 

Line 174: next step through the loop, and if at the end of it the 
variable ZZ is equal to zero, then tell the player that he's carrying 
nothing. 
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Line 176: back to the input routine again. 

Line 200: go to line 15 to start of the room description sequence. 
Line 230: same as line 200. 


GO and JUMP 

Players try to GO to all sorts of places, but in this game we only 
allow them to go through the cardinal compass points of NORTH, 
SOUTH, EAST and WEST. If anything else is tried, then the pro¬ 
gram is not impressed. 

Similarly with JUMP. People will try to jump all over the place, but 
in this game it doesn't fill any useful purpose whatsoever. 

260 IFNQ=50RN0>9THENPRINT"I CAN'T DO THAT.“jB0T020 

261 IFNO >5THENN0«N0-5 

262 N0»N0-liG0T0322 

290 PRINT"yQU ARE NOT A KANGAROO, JUST GET ON WITH 
IT."JG0T020 


Explanation 

Line 260: if the player has entered the fifth noun (the word KEY), 
or a noun whose noun number is greater than nine, then tell the 
player that he's trying to do something stupid before going back 
to line 20. 

Line 261: if the noun number is greater than five, subtract five from 
it. In other words, if the player types GO NORTH, he really should 
have typed in GO N. 

Line 262: subtract one from the noun number before going to the 
routine starting at line 322 which deals with all player movement. 
This enables us to use the P% variable discussed earlier. 

Line 290: a simple message to tell the player that there's no point 
in jumping anywhere. 
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N, S, E and W 


If a player can't be bothered to enter the word GO, and just wants 
to move North, South, East or West, then all he has to do is enter 
the single letter N, S, E or W. The following routines deal with this, 
along with a couple of special cases where individual locations have 
to be checked. 

320 IFCP-4ANDD0«0THENPRTNT"THE DOOR 18 LOCKED."i60 
T020 

321 NQ-VB-9 

322 IFPX(CP,NO)<>OTHENCP»PX(CP,NO):G0T015 
324 PRINT"VOU CAN'T SO THAT WAY."iS0T020 

350 IFCP“3ANDD0«0THENPRINT"THE DOOR IS LOCKED.”i60 
T020 

354 S0T0321 

380 IFCP“11ANDCL“OTHENPRINT"NOT WITHOUT A LIBRARY 
TICKET."s 60T020 
382 60T0321 

410 60T0321 
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Explanation 


Line 320: trying to move north in location four if the door is locked 
(DO = 0) is unproductive, so tell the player so and go back to line 20. 

Line 321: make the noun number equal to the verb number minus 
nine, in order that the program can use the P% variable to deter¬ 
mine whether or not a player can move in a particular direction. 

Line 322: if he can, i.e. the value of P%(room number,noun number) 
doesn't equal zero, then put the player in the new location and go 
to line 15 to tell the player where he now is. 

Line 324: the only other alternative, namely that the player can't go 
in that particular direction. 

Line 350: trying to move south from location three if the door is lock¬ 
ed is not very profitable, so tell the player so and go back to line 20. 

Line 354: no other checks for moving south, so go to line 321 and 
carry on from there. 

Line 380: you can't move east out of the library at location eleven 
if you've left your library ticket behind, so tell the player so and go 
back to line 20. 

Line 382: no other checks for moving east, so go off to line 321 and 
carry on from there. 

Line 410: no checks at all for moving west (freedom!), so just go 
to line 321 and sort it out from there. 
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GET 


In adventure games players try to GET all sorts of things, they may 
even tell the adventure itself to GET 'somethinged', so a routine has 
to be written that attempts to cope with most eventualities. 

There will be many things that the player cannot get hold of, for 
a variety of reasons. Walls, rooms etc. are not easily carried, and 
the player may try to get something that hasn't been discovered yet. 
In some games the player may well try to get something that is out 
of reach, and so a little piece of code would need to be inserted 
to tell the player that he isn't tall enough, or something like that. 

Happily there are no such complications in this simple game, and 
so the code is really quite straightforward. 

440 IFOB% (NO) ^-lTHENPRINT 11 YOU ALREADY HAVE. " aG0T02 
0 

442 IFZZ>4THENPRINT"YOU'RE CARRYING TOO MUCH."sGOT 
020 

444 IF(N0<1OANDNQ<>5)OR<N0>1GANDN0<>24)THENPRINT"! 
WON'T LET YOU."8G0T020 

446 IFN0=U0RN0=130RN0=140RN0*15THENPRINT ,, D0N'T BE 
SILLY. 11 s G0T020 

45B IFOBX(NO)<>CPTHENPRINT M Z CAN'T SEEM TO SEE THA 
T. 11 s G0T020 

459 IFN0=1STHENCL«1 

460 PRINT 11 OK. 11 8ZZ^ZZ+ls0B%(NO)“—laG0T020 
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Explanation 


Line 440: if the object is in the player's possession then tell him so, 
and go back to line 20. 

Line 442: if the number of objects being carried is greater than four, 
then the player cannot carry any more. 

Line 444: various objects that can't be GOT. 

Line 446: and ditto for a few more objects. 

Line 458: if the object isn't in the room then tell the player so before 
going back to line 20. 

Line 459: if he's getting the library ticket then set the variable CL 
to show that he's carrying it. 

Line 460: everything's okay, so increment the object counter, put 
the object in the player's possession, tell him it's 'OK', and go back 
to line 20. 
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DROP 


If you're going to be able to get things, you should also be able to 
drop them, and this is the purpose of this piece of code. 

Nothing too complicated here. Some adventures would have a much 
longer routine to handle this particular verb, as dropping an object 
can occasionally cause something to happen. Dropping a bottle, for 
instance, might well break it, or, as in the original 'Adventure', if 
you dropped a valuable Ming vase without there being a velvet pillow 
in the room to catch it safely, it shattered into a thousand pieces. 

470 IFOB%(NO)<>-lTHENPRINT"Y'GU HAVEN'T SOT IT. M iGO 
T020 

472 IFN0*24THENWD=0 
474 IFN0-18THENCL-0 

480 PRINT"0K. " s ZZ=ZZ-1 a 0B7. (NO) =CP» 80T020 
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Explanation 


Line 470: if the player isn't carrying the object then tell him so, before 
going back to line 20. 

Line 472 : if the player is literally dropping his disguise, then set the 
variable WD to zero. 

Line 474: if the player is dropping the library ticket, then set the 
variable CL to zero. 

Line 480: nothing else to check, so print up 'OK', decrement the 
object counter, put the object in the room, and then off to line 20 
as usual. 

Incidentally, the WD variable in line 472 is used in one of the room 
descriptions to check to see whether a' player can get past the 
policeman or not. If you're wearing the disguise you're okay, but 
if not, then you're recognised and carted off to the station. This is 
location four, and the relevant lines of code are 4036-4039. 
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OPEN 


Traditionally there are many things that an adventure player might 
try to open, but most games limit your choices somewhat to mun¬ 
dane things such as doors and, in this game, your wallet - if ever 
you find it, that is. 


However, this doesn't stop people trying to open everything they 
come across, and so you have to check and ensure that no ridiculous 
follies remain in the program. 

500 IFNO<>11ANDNCK>12THENPRINT"Y0U'RE RUNNING OUT 
OF IDEAS, AREN'T Y0U?"sG0T020 

501 IF <CP“30RCP“4)ANDQBX (5) < >—1THENPRINT“YQU HAVE 
NO KEY."JG0T020 

502 IF<CP»30RCP-4)ANDD0-1THENPRINT"IT ALREADY IS O 
PEN! 11 1S0T020 

504 IF(CP S »30RCP=4> THENPRINT“YOU OPEN THE DOOR."iDO 
=ls60T020 

506 I FNO“ 12AND0BV. <12)=-1THENPRI NT " WELL ... ALL YOU 
R MONEY'S HERE!"sG0T0509 

508 PRINT"I DON'T THINK SO, SOMEHOW."aG0T020 

509 IFCP=1THENEO™1t60T03002 

510 PRINTtPRINT“WOW ALL YOU'VE GOT TO DO IS GET BA 
CK TO YOUR FLAT.“«G0T020 
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Explanation 


Line 500: if the player is not trying to open the door (no = 11) or the 
wallet (no= 12) then inform him that he's beginning to get a little 
bit desperate in his manoeuvres, and back to line 20 again. 

Line 501: if the player's in location three or location four, and he's 
not carrying the key, then he can't open the door, so tell him so 
and then go to line 20. 

Line 502: assuming that the player has got the key, and he's still 
in locations three or four, and the door is already open, tell him so 
and go to line 20. 

Line 504: still in locations three and four, a successful door-opening 
operation, set the variable DO to be equal to one, and off to 20. 

Line 506: if he's opening the wallet, and is actually carrying it, print 
a suitable message and go to line 509. 

Line 508: standard response to all other opening suggestions. 

Line 509: if the player's in room one, he's opened the wallet suc¬ 
cessfully, then that's the end of the game, so set the variable EO 
to be equal to one, and go to line 3002. 

Line 510: having opened the wallet in a room other than room one, 
tell the player that he's got to get back to the flat to finish the game. 
Actually, the bedroom of the flat. 

Thinking about it, lines 501 and 502 should be renumbered to be 
502 and 503 respectively, line 506 should be renumbered to be 501, 
and the original line 506 removed. Why? Well, think about it. What 
if the player is in location three or four and tries to open the wallet? 

Something to watch out for in your own adventures. 
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CLOSE 


Naturally enough, if you can open things you should also be able 
to close them. 

But, as usual, intrepid adventurers always try to close things that 
you don't want them to try to close, so we have to insert various 
checks into the program to stop strange things happening. 

530 IFNO< >11THEN500 

532 IF(CP=30RCP««4)ANDDO“OTHENPRINT"!T ALREADY IS C 
LOSED!"iG0T020 

534 IF(CP»3QRCP=4)THENPRINT"YOU CLOSE THE DOOR.“«D 
0=0:G0T020 

536 PRINT"! DON'T THINK SO, SOMEHOW."S0OTO2O 


Explanation 

Line 530: if the player isn't trying to close the door (no = 11), then 
go to line 500 and print out a suitably sarcastic message. 

Line 532: if the player is in locations three or four, and the variable 
DO is equal to zero, then this means that the door is already shut, 
so print out a suitable message before going to line 20. 

Line 534: still in locations three or four, assuming now that the 
variable DO is equal to one, the player can close the door. So, print 
out a message, set the variable DO to equal zero, and off to line 20. 

Line 536: standard response to all other closing suggestions. 


176 



CROSS 


In a lot of adventures, people try to cross ravines or gorges, but 
in this one the only thing they can attempt to cross is a road outside 
their flat at the first few locations in the game. 

This will not, of course, stop people trying to cross other things. 
Perhaps some players want to start up a strange sort of breeding 
colony? 

560 IF(CP<4QRCP>10)THENPRINT“THERE'8 NOTHING TO CR 
OSS HERE."i60T020 

562 IFNO<>13THENPRINT"BIZARRE IDEA!">G0T020 
564 E0=0SPRINT"yOU TRY TO CROSS THE ROAD. BUT SET 
CRUSHED UNDER A CAR!"s G0T03002 


Explanation 

Line 560: if the player's current location (the variable CP) is less than 
location four or greater than location ten, then tell the player that 
there's nothing to cross before going back to line 20. 

Line 562: if the player is in the correct range of location numbers, 
but attempts to cross anything other than the road (no = 13) then 
tell the player that he has a warped mind before going to line 20. 

Line 564: all the room descriptions that mention the road say that 
it's a very busy one, so if someone will attempt to cross it the in¬ 
evitable happens and the player dies. So, set the variable EO and 
go to line 3002. 
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EXAMINE 


Every adventure game should have an EXAMINE verb in it. This is 
one of the player's greatest weapons, because a lot of games hide 
things away, and they can only be found by examining other objects. 

Even if you examine something and get a negative response such 
as 'I see nothing of interest' this is in itself helpful, since it means 
that the object examined has no magical purpose, is not a treasure, 
or anything like that. 

590 IFCP=1ANDN0=23AND0B% < 5)=0THENPRINTSO$ s 0B% < 5 > =C 
Ps G0T020 

591 IFCP=2ANDN0=25AND0B%< 24 > =0THEN0B%(24)«CP SPRINT 
S0$s G0T020 

592 IFOBX < NO) < >-1THENPRI NT 11 YOU FIND NOTHING OF INT 
EREST. 11 s G0T020 

594 I FNO«= 10THENPRINT"IT'S A STEVE WILL AGE ALBUM." 3 
G0T020 

596 IFNQ=12THENPRINT"HUH ... IMITATION LEATHER."8G 
0T020 

598 IFNO=16THENPRINT "A BIT BENT AND WORN. BUT STIL 
L USABLE."sG0T020 

600 PRINT"yOU DON'T FIND ANYTHING OF INTEREST."sGO 

T020 
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Explanation 


Line 590: if the player is in location one, is examining the flat, and 
hasn't yet found the key, then print the 'you discover something 
of interest' message and put the key in the room before going to 
line 20. 

Line 591: if the player is in location two, is examining the room, and 
hasn't yet come across the disguise which will get him past the 
policeman, then print our friendly message and put the disguise in 
the room before going to line 20. 

Line 592: if the player isn't carrying an object then he can't examine 
it, so print out a suitable message before going to line 20. 

Line 594: if the player is examining the record, tell him who it's by. 

Line 596: examining the wallet? 

Line 598: and now examining the cashcard. 

Line 600: examining anything else produces nothing of interest, so 
say so before going to line 20. 
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FIND and WEAR 


Grouped together, because neither of these are particularly long 
routines. 

FIND doesn't, in fact, do very much at all, but people will type in 
'FIND thing' if they're getting a bit lost and fed up in a game, so 
just a few lines of encouraging code to cheer them up are needed. 

WEAR is another short piece of code, because (in this game at any 
rate) the only thing that the player can wear is his disguise. For the 
sake of decency we must assume that our intrepid adventurer is 
already clothed before the game started. 

620 IFOBX(NO)=-lTHENPRINT"YOU'VE ALREADY GOT IT! M * 
60T020 

622 IFOB*/.<NO>=CPTHENPRINT"/T'S IN FRONT OF YOU."iG 
0T020 

624 PRINT"FIND IT YOURSELFsG0T020 

650 IFNO< >24THENPRINT"DON'T BE RIDICULOUS."sG0T020 

652 IFOBX<24)<>—1THENPRINT"YOU HAVEN'T GOT IT."sGO 

T020 

654 IFWD=1THENPRINT"YOU ALREADY ARE."3G0T020 
656 PRINT"OKAY THEN."sWD=1«G0T020 


180 




Explanation 


Line 620: if the player is carrying a particular object then we can 
safely assume that he's already found it, so print out a message and 
go to line 20. 

Line 622: if the object being sought after is in the room, then inform 
the player of his short-sightedness before going to line 20. 

Line 624: curt response if the object isn't being carried and isn't in 
the room. 

Line 650: on to WEAR now, and if the player is trying to wear 
anything other than his disguise tell him that he's being silly, before 
going to line 20. 

Line 652: if the disguise isn't being carried then it can't be worn, 
so print a suitable message and off to 20 as usual. 

Line 654: if the variable WD is set to one then it means that the 
disguise is already being worn, so inform the player and go to line 20. 

Line 656: you can wear the disguise, so print a message, set the 
variable WD and go to line 20. 
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DISCARD and BUY 


Another two short routines grouped together, as DISCARD is coped 
with by another verb, and there is only one thing that we'll allow 
the player to buy in this particular game. 


But, as usual, this doesn't stop people trying to buy other things, 
and so we have to put the appropriate checks in to make sure that 
strange things are not allowed to happen. 

680 G0T0470 

710 I FOB’/. <17)0-1 THENPRI NT " WHAT WITH?"iG0T020 
712 1FCP018THENPRI NT “THERE'S NOTHING TO BUY HERE. 

II 

714 IFN0O19THENPRINT"#HAT ARE YOU THINKING OF?"«G 
0T020 

716 IFZZ>4THENPRINT"YOU'RE CARRYING TOO MUCH AND W 

ON'T BE ABLE TO HOLD IT.“iG0T020 

718 PR I NT "OK. "s ZZ=ZZ+l!0B , X<N0)=-lsG0T020 
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Explanation 


Line 680: go to line 470 and let the verb DROP take care of 
everything. 

Line 710: if the player hasn't got any money (ob%(17) represents 
the money), tell him that he can't buy anything and go to line 20. 

Line 712: if the player isn't in location eighteen then there's nothing 
to buy, so tell him so and go to line 20 as usual. 

Line 714: if the player isn't trying to buy an ice-cream (no = 19) then 
there are strange things afoot, so tell the player that you're not im¬ 
pressed by his thinking abilities before going to line 20. 

Line 716: if you're carrying more than four objects then you won't 
be able to hold on to the ice-cream anyway, so a suitable message 
before retreating to line 20. 

Line 718: increase the object counter, put the ice-cream in the 
player's possession, and go to line 20. 
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READ, TAKE and PICK 


Three verbs at a time now! Actually, only the first one serves any 
sort of useful purpose, since the other two are only in there as 
synonyms for the verb GET, and the code for that word is used to 
handle everything. Still, some people prefer using TAKE to GET, 
so the appropriate jump has to be inserted. 

740 IFCP<110RCP>15THENPRINT"THERE'S NOTHINB TO REA 
D HERE."I0OTO2O 

742 IFNO<>26THENPRINT“yOU'RE IN A LIBRARY ... WHAT 
DO PEOPLE READ IN LIBRARIES?"I60T020 

744 IFCP<>15THENPRINT"WMMMs SOMETHING ABOUT WRITIN 
6 ADVENTURE GAMES.“sG0T020 

745 IFBD™1THENPRINT"YOU CAN'T, THE LIBRARIAN DQESN 
•T TRUST YOU."s 6QT020 

746 IFRB»1THENPRINT"THE BOOK DISINTEGRATES IN YOUR 
HANDS."t BD=1xG0T020 

747 RB=lsPRINT“0N THE FLY LEAF IT SAYS 'MAGIC WORD 
IS AH AY '."s G0T020 

770 G0T0440 
SOO 60T0440 
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Explanation 

Line 740: if the player's current location is less than eleven or greater 
than fifteen, i.e. he is outside the library, then tell him that there's 
nothing to read before going to line 20. 

Line 742: the player is in the library but is attempting to read 
something other than a book, so print out a suitable message before 
going to line 20. 

Line 744: reading in any location other than location fifteen produces 
a plug for the publishers, before going to line 20. 

Line 745: if the variable BD has been set then you can't read anything 
because you can't be trusted. 

Line 746: if the variable RB has been set then it means that you've 
already read a book, so just to be nasty we make it disintegrate and 
set the variable BD (see line 745). 

Line 747: set the variable RB (see line 746), tell the player what the 
magic word is, and go to line 20. 

Line 770: handle TAKE by using the routine for GET starting at line 
440. 

Line 800: ditto for PICK. 
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INSERT 


Now here's a potentially dangerous verb, and rigorous checks have 
to be carried out to ensure that the player types in the correct thing, 
and only the correct thing. 


It is obviously meant to be used in conjunction with the cashcard 
and the bank in an attempt to get money out. But, as usual, some 
players have warped minds ... 

830 IFCP< >9THENPRINT"D0N'T BE SILLY. JUST SET ON 
WITH IT. 11 860T020 

831 IFNO<>16THENPRINT"W0, NO, NO, NO, N0! H i60T020 

832 IF AG« 1THENPRI NT 11 YOU CAN ONLY USE YOUR CARD ONC 

E PER GAME."s 60T020 

834 I FOB"/. < 16) 0-1 THENPR INT 11 THERE'S YOUR CARD, THEN 
?"s 60T020 

835 PRINT 11 OKAY, WHAT'S YOUR CODE NUMBER (FOUR 
DIGITS)?“s PRINTSG0SUB60000 

836 PRINTS A«OsF0RI = 1TQLEN(CMS)a A&A+ASC(MIDS(CMS,I, 
1))aNEXTsIFA«215THENB40 

837 NG»NG+laIFNG=3THEN842 

838 PRINT 11 WRONG, TRY AGAIN. 11 

839 PRINT a G0SUB60000 sG0T0836 

840 AG S 1 sPRINT”4.0 AND BEHOLD, SOME MONEY POPS OUT. 
11 a QBX (17) —la ZZ-ZZ+1 b G0T020 

842 PRINT"RIGHT, THAT'S IT, YOU'VE HAD THREE GOES, 
SO I'M TAKING YOUR CARD AWAY." 

843 0B%(16)=08 ZZ“ZZ—18 G0T020 
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Explanation 

Line 830: if the player isn't in location nine then the program will 
have nothing to do with whatever he's typed in, so print out a 
message and go to line 20. 

Line 831: even if he is in location nine, if the noun isn't the sixteenth 
one, namely the card, then we tell the player off and retreat to line 20. 

Line 832: if the variable AG has been set this means that the card 
has been used, and as we all know you can only use cards once 
a day. 

Line 834: if the player isn't carrying the card, suggest that he goes 
and gets it, before the program goes to line 20. 

Line 835: now for the tricky part, remembering your code number. 

Line 836: take the four digit number typed in, take the ASCII value 
of each number typed in in turn, and add all four of them up. If the 
total arrived at is 215 then go to line 840. 

Line 837: increment the variable NG by one, and if it equals three 
go to line 842. 

Line 838: simple message. 

Line 839: back we go for another try. 

Line 840: success, so set the variable AG, print out a message, give 
the player some money, increment the object counter and go to line 
20 . 

Line 842: if the player takes three goes to guess his number and 
still gets it wrong, then the machine swallows his card. How sadly 
true to life. 

Line 843: remove the card from the player, decrement the object 
counter and go to line 20 as if nothing's happened. 
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CHASE 


A forlorn hope really, but some people do think that they can go 
chasing about after things. 

850 PRINT"/IARGH. YOUR ICE-CREAM'S MELTED! ":0B7. (19V 
=0:ZZ=ZZ-1 

852 F0RI“lT02000s NEXTs G0T0393 

860 PRINT"YOU'RE TOO OLD TO CHASE ANYTHING."sG0T02 
0 

Explanation 

Actually lines 850-852 having nothing to do with this verb at all, but 
I needed some space in the program somewhere, and this seemed 
to fit the bill. 

Line 850: this is what happens if the player carries his ice-cream about 
for too long, so print a message, remove the ice-cream and decre¬ 
ment the object counter. 

Line 852: wait for a while before going back to where we came from, 
namely line 393. 

Line 860: aha! The chase routine, which simply prints out a message 
before going back to line 20. 
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LOAD and SAVE 


Essential to any adventure game, these two verbs allow you to 
record, and later recall, your progress at any time. 

890 PRINT:PRINT"INSERT TAPE AND PRESS SPACE WHEN R 
EADY.“ 

S91 F0RI=1T010« GETBP*;NEXT 
892 GETSP*:IFSP*<>" "THEN892 
894 0PEN1.1,0,"DATA" 

896 FORIslTONNt INPUT#1,087.(1) sNEXT 

898 INPUT#1,WD,EO,WB,CL,DO,AG,NB,MI,RB,BD,CP 

900 CL0SE1:60T015 

920 PRINTjPRINT"INSERT TAPE AND PRESS SPACE WHEN R 
EADY.“ 

921 F0RI=lT010tGETSP$:NEXT 

922 GETSP*:IFSP*<>" “THEN922 

923 Z$»CHR*<13) 

924 0PEN1,1,1,"DATA" 

926 F0RI=1T0NN«PRINT#1,OBX(I);Z*{:NEXT 

928 PRINT41,WDjZ* j EO;Z*j WB:Z*j CL;Z*;DOjZ* j AG;Z*t N6 

|Z$;MIjsZ*jRBjZ*}BD;Z*;CPsZ*s 

930 CLOSE1:G0T020 

Explanation 

Lines 890-892: print a message and wait for the space bar to be 
pressed. 

Line 894: open a file called DATA. 

Line 896: load the position of all the objects. 

Line 898: load the all-important list of variables. 

Line 900: close the file and go to line 15. 

Lines 920-922: print a message and wait for the space bar to be 
pressed. 

Line 923: set the variable Z$ to equal a carriage return. 

Line 924: open a file called DATA. 

Line 926: save the position of all the objects. 

Line 928: save the all-important list of variables. 

Line 930: close the file and go to line 20. 
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TALK 


Why people should try to talk I've no idea, but they do, they do, 
and so a few lines of code are needed to cope with this particular 
suggestion from the player. 

Actually, in our second game ('Enormous Cave') talking plays a very 
useful role, and without talking to someone in particular you'll never 
be able to finish the game. However, in this one it fulfils no useful 
purpose whatsoever. 

950 IFCP=4ANDN0=20THENPRINT"STQP WASTING POLICE TI 
NE■ " 3 60T020 

952 IF (CP > 1 OANDCP< 16) ANDNO" 14THENPRI NT 11 VOU GET A S 
TERN LOOK. 11 : G0T020 

954 IFCP=25AND(N0«21QRNO-22)THEN958 

956 PRINT"4RE YOU MAD? JUST GET ON WITH THE 

GAME."a G0T020 

958 PRINT"WE SAYS 'MY MOTHER TOLD ME NEVER TO TALK 
TO STRANGERS' f AND RUSHES OFF." 

960 G0T020 


Explanation 

Line 950: talking to the policeman in location four earns the player 
a rebuke before going to line 20. 

Line 952: talking to the librarian in the library gives the player a similar 
fate. 

Line 954: talking the child, or kid, in location 25 takes the player 
to line 958. 

Line 956: sarcastic message before going to line 20. 

Line 958: words of wisdom from one so young. 

Line 960: off to line 20 as usual. 
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GIVE, OFFER and SEARCH 


Since GIVE and OFFER are essentially the same thing (well, as far 
as this game is concerned anyway), the same piece of code is used 
to handle both verbs. 


Again for the purpose of this game, SEARCH is taken to be the same 
as EXAMINE, and so we just need a program jump in case some 
people prefer using one word to the other. 

980 IF0BX<N0><>-1THENPRINT”Y0U HAVEN'T GOT IT. ”100 
T020 

982 IFCP<>25THENPRINT"AfQ—ONE WANTS IT. M sG0T020 
984 IFNQ< >19THENPRINT ,, M0—ONE 'S INTERESTED. " 8 B0T020 
986 PRINT 11 THE KID ACCEPTS THE ICE-CREAM AND THROWS 
YOUR WALLET AT YOU." 

988 OBX (19) °>08 OBX (12)®—1 s 60T020 
1010 60T0980 
1040 60T0590 


Explanation 


Line 980: a player can't offer something he hasn't got. 

Line 982: offering anything anywhere other than location 25 is 
fruitless, so print out message and off to line 20. 

Line 984: if the object being offered isn't an ice-cream then no one's 
interested, so again print out a message and off to line 20. 

Line 986: acknowledging the bribe, the kid returns the player's wallet. 

Line 988: so we remove the ice-cream from the player's hands and 
replace it with the wallet before going to line 20. 

Line 101Q: OFFER is taken to mean GIVE, so go to line 980. 

Line 1040: SEARCH is taken to mean EXAMINE, so go to line 590. 
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LISTEN, ENTER and AWAY 


These are last three verbs. The first one serves no purpose other 
than to satisfy those people who want to type it in. The second is 
genuinely useful, but can lead you astray if you're not careful, while 
the third verb is a magic word, which, under certain conditions, 
causes wondrous things to happen. 

1070 IFCP=2ANDN0=1OTHENPRINT"SOUNDS LIKE STEVE MIL 
LAGE TO ME. 11 : Q0T020 

1072 PRINT"VOU HEAR THE USUAL NOISES OF THE DAY."s 
G0T020 

1100 IFCP=11ANDCL=OANDNO“14THENPRINT"MITHOUT A LIB 
RARY CARD?"160T020 

1101 IFCP=11ANDCL”1ANDNO*14THENCP"12:S0T03000 

1102 IFCP=9ANDNO=15THENEO=itPRINT"0H NO, THOSE WAN 
TED POSTERS ..."sG0T03002 

1104 S0T0508 

1130 IF <CP*150RCP«*16> ANDBD<>1THENCP-31-CPiS0T015 
1132 PRINT"MOTHING HAPPENS."S6QT020 


Explanation 

Line 1070: listening to the record in location two tells the player who 
it's by. 

Line 1072: listening anywhere else produces nothing very interesting. 

Line 1100: if the player is in location eleven and trying to enter the 
library without a library card, throw him out on his ear and go to 
line 20. 

Line 1102: entering the bank, as we all know, can sometimes be 
fatal, so set the end of game variable EO before printing out a 
message and going to line 3002. 

Line 1104: go to line 508 and print out a message. 

Line 1130: if the player is in location fifteen or sixteen and hasn't 
yet destroyed a book, then magically transport him. 

Line 1132: otherwise just print out a message. 
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Conclusion 


We have now completed The Lost Wallet'. Short and sweet it may 
be, but it should give you a good idea of how various Basic techni¬ 
ques can be implemented. 

Now the next game is a different matter altogether, being much 
longer, much more complex, and requiring a disk drive. It also has 
a number of interesting characters who roam about the caves in 
which the game is set, as well as over ten times as many locations 
as the game in this chapter. 

However, it is going to be presented with very little explanation, so 
if you begin floundering somewhere you'll come to love this chapter. 
You should be able to sort things out just by looking at this listing 
(and the rest of it in Chapter 5 of course) and reading the appropriate 
pages. 
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9 

A Disk-based Adventure 


Introduction 


In the previous chapter we concerned ourselves with a small-scale 
adventure, going through the listing more or less line by line, and 
seeing how the whole thing was put together. That was a tape-only 
game, so in this chapter we'll graduate to using disks and present 
the program 'Enormous Cave'. 

The introduction, as well as having a title-page display, tells you all 
about the program. 

0 P0KE532B 1,7s P0KE532B0.9 s PRINT"C CLR , BLK 3";sPRINTC 
HR*(8)s PRINTCHR*(142) 

1 p*=“ADVENTURE SOFTWARE ADVENTURE SOFTWARE " 

2 PRINT"CHOME,5CD,CR3"LEFT*(P*.38) 

3 PRINT"C12CD,CR3"MID*(P*,14);LEFT*(P*,12) 

4 PRINT"CH0ME3":sF0RA=lT023SPRINT"C6CR3"MID*<P*,A, 
1)s NEXT 

5 PRINT"CHOME3"s s F0RA=lT023s PRINT"C26CR3"s 

6 PRINTMID*(P*,A,1)sNEXTsT*=LEFT*(P*,38)sP*=RIGHT* 
<P*,1)sP*=P*+T* 

7 PRINT"CHOME,10CD3"TAB(11)"CRVS3PRESS ANY ":PRI 
NTTAB(ll)"CRVS3KEY FOR MORE 

8 GETK*:IFK*=""THEN2 

10 PRINTCHR* < 8)s P0KE53281,7s P0KE53280,9s PRINTCHR* < 
14) 

12 PRINT"CCLR,BLK3WELCOME TO ENORMOUS CAVE! 

20 PRINT"C2CD3THIS STARTED OFF LIFE AS AN EXERCISE 
IN 

22 PRINT"USING THE COMMODORE 1541 DISK DRIVE. 

24 PRINT"CCD3J DECIDED TO WRITE AN ADVENTURE GAME, 
26 PRINT"USING PLENTY OF DISK FILES, AND THOUGHT 
28 PRINT"THAT A VERSION OF THE ORIGINAL COLOSSAL 
30 PRINT"CAVE WOULD BE NICE. 

32 PRINT"CCD3HOWEVER, EVERYONE (?) KNOWS THAT GAME 
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34 PRINT"AND SO THIS 'SON OF COLOSSAL CAVE' WAS B 
ORN. 

36 PRINT"CCD3TO ANYONE WHO HAS PLAYED THE ORIGINAL 

38 PRINT"IT SHOULD BE FAMILIAR ENOUGH IN PLACES. 

40 PRINT"HOWEVER, MY INTEREST IN ADVENTURE GAMES 
42 PRINT"WAS SUCH THAT THE STORYLINE ENDED UP 
44 PRINT"BEING A LONG WAY FROM THE ORIGINAL. 

46 -G0SUB2000 

50 PRINT"CCLR3PLENTY OF OLD FRIENDS ARE THERE, 

52 PRINT"INCLUDING THE DWARF, THE BIRD. THE TROLL 
54 PRINT"CCU3AND THE BRIDGE, AND SO ON. THERE ARE 
56 PRINT"ALSO PLENTY OF NEW FRIENDS TO BE MADE, 

58 PRINT"AND BEWARE, HARDLY ANYTHING YOU'RE USED 
60 PRINT"TO DOING WILL WORK ANYMORE. 

62 PRINT"CCD3Y0U CAN USE THE FAMILIAR VERB/NOUN TY 
PE 

64 PRINT"OF ENTRY IF YOU WANT, ALTHOUGH YOU CAN 
66 PRINT"GO A LITTLE BIT FURTHER THAN THAT IF N 
ECESSARY." 

68 PRINT"CCDIYOU 'LL SOON FIND A COMPANION IN THE 
70 PRINT"CAVES, AND IF YOU WANT TO TALK TO HIM, 

72 PRINT"ENTER THE COMMAND 'TALK TO EDDY '. 

74 PRINT"CCD3THEN, JUST TYPE IN YOUR REQUEST. 

76 G0SUB2000 

80 PRINT"CCLR3ONLY REMOVE THE MASTER DISK FROM THE 
82 PRINT"DRIVE WHEN YOU WANT TO SAVE YOUR 
84 PRINT"PROGRESS TO DISK. INSERT YOUR OWN. 

86 PRINT "FORMATTED DISK INSTEAD, AND THEN PUT THE 
88 PRINT"CCU30RIGINAL BACK IN THE DRIVE. 

96 PRINT”CCD34S IN THE ORIGINAL, YOUR GOAL IS TO 
98 PRINT"COLLECT THE TREASURES AND GET OUT ALIVE. 
100 PRINT"CCU3WHETHER YOU SUCCEED IS, OF COURSE, U 
P TO 

102 PRINT"CCU3YOU (AND ANYONE ELSE WHO MIGHT BE LI 
VING 

104 PRINT"CCU3IN THE CAVES)." 

106 60SUB2000 

108 PRINT"CCLR3DON'T EXPECT AN INFOCOM-TYPE GAME. 
ONE 

110 PRINT"PROGRAMMER WORKING ALONE FOR THREE 
112 PRINT"WEEKS WILL NOT CREATE WHAT A TEAM OF 
114 PRINT"PROGRAMMERS CAN DO OVER MANY MONTHS. 

116 PRINT"BESIDES, THE CATS KEPT WANTING FEEDING 
118 PRINT"AND THE CRICKET WAS ON TELE. 

120 PRINT"CCD3STILL. I HOPE YOU ENJOY IT. THERE A 
RE 

122 PRINT"ABOUT 250 LOCATIONS TO FIND, AND THE 
124 PRINT"PROGRAM UNDERSTANDS AROUND 200 DIFFERENT 

126 PRINT"CCU3VERBS AND NOUNS. 

127 PRINT"CCD3FINALLY, LONG GIVES YOU LONG ROOM 
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128 PRINT"DESCRIPTIONS, AND SHORT GIVES YOU, WELL, 
SHORT ONES. 

129 PRINT"CCD3 REDESCRIBE LETS YOU LOOK AT A LOCATI 
ON DESCRIPTION AGAIN. 

130 PRINT"CCD3S0, PRESS 'L' TO LOAD THE MAIN GAME, 
OR TO RE-READ THIS LOT- 

131 GETA*aIFA*-""THEN131 

132 IFA$="R"THENRUN 
134 IFA$<>"L"THEN131 

136 PRINT"C CLR,YEL,2CD3 NEW"s PRINT"C 2CD 3 LOAD"CHR$(3 
4)"ADVENTURE"CHR$ < 34)",8CHOME3"s 

138 POKE198,6sP0KE631,13sPQKE632,13sP0KE633,82sPOK 

E634,85s P0KE635,78s P0KE636 f 13s END 

2000 PRINT"CCD,RVS,BLK3PRESS SPACE TO CONTINUE. 

2002 F0RI«lT010s GETSPSs NEXT 

2004 GETSP$s IFSP$<>" "THEN2004 

2006 RETURN 

READY. 

If, like me, your fingers waver at the sight of a listing that has to 
be typed in, you'll be relieved to know that you don't have to type 
in this one. It's purpose is just to tell you about the game and then 
load the main program, so if you can't be bothered to do some typ¬ 
ing then just keep these pages handy and read through them before 
starting to play the adventure proper. 


The main listing 

This, as you can see, covers a number of pages, but has very few 
messages sprinkled about among the code. This is quite all right 
because, being a disk game, the vast majority of messages and all 
the room descriptions are stored on disk and fetched in and displayed 
as and when they are required. 

As this program follows much the same format as the previous one, 
but on a much larger scale, there is no need to go through the listing 
line by line. However, a few pertinent sections of the code ought 
to be examined. 

O B=i4 s C= i7 s A=0 s G0SUB50 1 P0KE532B 1 .0 1 P0KE53280.0 

4 DATA162.6.32.198.255.32.228.255.201.42.208.249.3 
2.228.255.205.155.3,208 

5 DATA241.76,204,255,0,0,162.6.32.198,255.32.228.2 
55.76,204,255 

6 F0RI=900T0935s READAs POKEI.As NEXT 

7 DATA104.104,32,253,174,32.235,183.76.166.16S 
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8 PRINTCHR*(14)sCHR*<8)SPRINT"ECLR.YEL3WELCOME "a 

9 0PEN2 . 8.2. " 0 a MAP 1, S. R " a DIMP7. < 253.6) s A»38 a D=126 a G 
0SUB50 

10 FORI=1TO125 8 FORJ=0105 

11 input# 2.py.<I,J) 

12 NEXTJ .Is CL0SE2: PR I NT "TO 11 a s A=43: D=52s G0SUB50 

13 QPEN2.8.2, H 0sMAP2.S.R" 

14 F0RI=126T0253aF0RJ=0T05 

15 INPUT#2,P7.<I,J) 

16 NEXTJ.Is CL0SE2:PRINT"ENORMOUS »a aA=34aD=75sGOSU 
B50 

17 D0*="CRVS.BRN3YOU NEED A DIRECT OBJECT." 

18 P7. (63.3) =64 

19 FORI=49152T049162s READAs POKEI.As NEXT 

20 DIMP*<253) 

21 0PEN2.8.2."Os SHORT. S. R" 

22 F0RI = lT0253s INPUT#2.P* < I) 

23 NEXT 

24 CL0SE2SPRINT"CAVE"8 s A=17:D=37s G0SUB50 

26 REM 

28 NN=107:NV=84 

29 DIMOB*<NN> .0B7.(NN.l) .VB*(NV) .NO*<NN) ,D*<5) 

30 0PEN2.8.2."Os STUFF.S.R" 

31 P7. < 114.0) =114s P’/. < 114.1)=114s P'/.< 17.4) =16 

32 F0RI=0T05sINPUT#2.D*<I)a NEXT 
34 FORI=lTONVsINPUT#2.VB*<I)sNEXT 
36 FORI»1TONN sINPUT#2.NO*(I)s NE X T 
38 FORI=lTONNsINPUT#2.0B*<I)sNEXT 

40 FORI = lTQNNs INPUT#2.0B7. < 1.0) a NEXTs 0B7. (6.0) =0 

42 FORI=lTONNs INPUT#2.0B7. < 1.1) a NEXTs CL0SE2 

43 0B% (68.0) =1 15b P"/. (248.0) =249a P% (232.0) =0s PX <232. 
3)=233 

44 PRINT"!"a A=25 a D=177 a G0SUB50 s FORI = lT03000 a NEXT a P 
7.< 120.0) =123 

45 P* (36) os»y'ou ARE IN LOW MISTY TUNNEL. " aP* (43) ="Y 
OU ARE NORTH OF GAPING CRACK. 

46 P7.<76.1) =77aP7.(76.2) =75aP7.< 144.3) =0aP7.< 126.1) =1 

27 

47 P*(76)="YOU ARE IN CORNER OF DARK ROOM." 

48 PRINT"C CLR 3"a a PRINTCHR*(142)s G0SUB60 

49 P* <126)="YQU ARE SOUTH OF OLD DOOR."aP*(125)="Y 
OU ARE NEXT TO OLD DOOR."a GOTO100 

50 V=54272a POKEV+24,15a POKEV+5.B s POKEV+6.0 a POKEV+4 
.OsP0KEV+4.C 

51 POKEV+1.A a POKEV.D 

52 RETURN 

60 OB*(69)="A DRINK" 

83 P*(199)="YOU ARE IN COLD ROOM."sP*(204)="YOU AR 
E ON LEDGE NEAR LAKE." 

84 P0KE53280.0 aP0KE53281.0 a RETURN 

100 PRINT"CCLR3"a s PRINTCHR*(14)a s 

101 B*«"COL3 ,, sF2=OsOPEN6.8.6."Oe "+B*+" .S.R" a CP-1 a G 
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0SUB4000 

200 REM 

201 G0T0300 

202 PRI NT " CRVS.BLU3 YOU CAN SEE:CORNS3 

203 A«=0: FOR I -1TONN s 1 FOB*/. < 1.0) =CPTHENPR INTOB* (I):A“ 
A+l 

204 NEXT:IFA=0THENPRINT"NOTHING MUCH.” 

206 PRINT"CCD.RVS.RED 3 0BVIOUS EXITS AREsCORNS3 

208 A-0: FOR I =0T05 : I FP*/. < CP. I) < >OTHENPR I NTD* < I... 

A=A+1 

209 NEXT:IFA=OTHENPRINT"WOT VERY OBVIOUS." 

300 IFWB=20THENWB=0:R=INT < RND <.5)*4)+253:G0SUB4000 

301 60SUB500:IFVB=830RVB=B40RVB=49THEN305 

302 IFNO*< >""ANDVBANDNO=OTHENPRINT"CBRN37 DON'T KN 
OW WHAT YOU'RE SAYING.WB=WB+1:G0T0300 

303 IFNO=OAND(VB<1ORVB >20)ANDVB<>32ANDVB< >33ANDVB< 
>34ANDVB< >35ANDVB<>S2THENPRINTDO*:G0T0300 

304 IFVB=0THENPRINT"CBRN3SORRY. YOU'LL HAVE TO RE¬ 
PHRASE THAT.":G0T0300 

305 G0SUB3150:1FVB>7ANDVB<14THENVB=VB-6 

306 QA=1:GOSUB1080:QA=0:IFA >260ANDCC=0ANDCP>43THEN 

CC=1:G0T03215 ' 

308 IFFL >250ANDBA= 1AND0B7. < 39.0) =-1 THENBA=0: R=350: G 
0SUB401: 0B7. < 39.0) =0: FL=-2000000 

309 IFFL=250THENR=2B0:G0SUB4000:PRINT:PRINT 

310 I FFL=500THENR=2B 1: G0SUB4000: L0=0: OB*/. < 38.0) =0:0 
BY. <37.0) =-i 

311 G0T03180 

312 IFDF=1ANDVB< >29THENR=376:G0SUB4000:GOTO1453 

313 G0T06300 

400 G0SUB4000:G0T0300 

401 PRINT:PRINT:G0SUB4000:RETURN 

402 R=CP-1:PRINT:PRINT:G0T0400 

500 PRINT:PRINT"CCD.RVS.PUR3WHAT NOW?COFF3 "::GOSU 
B60000:PRINT:IFLI>OTHENLI=LI-1:IFLI=1THEN3600 ' 

501 IFLEFT*(CM*.11>="WH0 IS EDDY"ANDED—1THENR=257: 
G0SUB4000:G0T0500 

502 IFLEFT*(CM*.3)="WHY"THENPRINT"CBRN3BECAUSE I S 
AY SO!":G0T0500 

503 IF (CP > 18ANDCP< 246) AND0B7. < 38.0) < >-1 THENL0=0 

504 IFCP=221ANDLEFT4(CM*.8> ="PAY SUBS“THENPRINT:PR 
INT"CBRN3IT'S NOT MONEY HE WANTS.":G0T0500 

505 IFLEFT4(CM*.4)=“PLUG"THEN3120 

506 IFLEFT* <CM*.4)="AUST"THEN3210 

507 I FLEFT* (CM*. 3) =" FEE “ ANDLEFT* (CM* .4)0“ FEED " THE 
N1530 

508 IFLEFT*(CM*.3)="SAY"THEN3330 

509 PRINT"C RED 3"::N1 1*="" V 

510 CM^LEN <CM$) s F0RI = 1T0CM: IFMID$ (CM$. 1,1)0" “THE 
NV1$=V1$+MID^ <CM$.1.1):NEXTI 

511 VB^=LEFT$(V1 * .4)sFORI = 1TONV sIFVB$(I)=VB$THENVB 
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=1:SOTOS14 

512 NEXTI 

513 VB=+lsN0*=Vl*sG0T0522 

514 IFLEN (VI*)+1>LEN (CM*)THENN0=0:RETURN 

516 F0RI=CMT01STEP-lsIFMID*(CM*.I.l)<>" "THENNO*=N 
0*+MID*(CM*.I.l)sNEXT 

517 Z=4:IFLEN(NO*)=3THENZ=3 

518 NO*=RIGHT*(NO*.Z):FORI=lTOZsA*(I)=MID*(NO*.Z+l 
—I-1>sNEXT 

520 N0*=" " sFOR1=1TOZ:NO*=NO*+A*(I):NEXT 

522 FORI=lTONNsIFLEFT*(NO*(I>.Z)=NO*THENNO=IsG0T05 

25 

524 NEXTI3RETURN 

525 1FNO=34ANDOBX< 35,O > =-iTHENNO=35g RETURN 

526 IFNO-36 ANDOB*/. (35.0) =-1THENNO® 35 sRETURN 

527 RETURN 

600 IFNO<160RN0 >27THENPRI NT " C RVS.8REY3 TRY RE-PHRAS 
INS THAT!":G0T0300 

602 VB«N0-14sIFVB>7THENVB»VB-6sG0T0310 

630 IFL0=0AND(CP >1BANDCP<246)THENR=258s G0T0400 

631 VB=VB-2 s IFP7. (CP.VB)< >0ANDP7. (CP,VB)< >-1 THENCP=P 
7 . (CP. VB) : R=CP-1 s G0SUB4000: G0T0200 

632 IFPX (CP. VB) =— 1THENPRI NT " C GREY 3 THAT ' LL TEACH YO 
U TO GO THAT WAY ... YOU'RE DEAD! 

633 IFP7. (CP . VB) =-1THENFOR 1=1 T03000: NEXT s PR I NT " C CLR 
3"s:PRINT”CRVS.BRN3H0 HO HO!"sG0T05000 

634 PRINT"CRVS.GREY3YOU CAN'T GO THAT WAY."sG0T030 
0 

660 IFCP=101ANDTB=1THENPRINT: PRINT" CBRN3THE TROLL 
WON'T LET YOU."sPRINTSG0TO300 

661 G0T0630 

690 IFCP=74THENQA=18GOSUB1171sIFZZ>0THENR=354sQA=0 
s G0T0400 

691 G0T0630 

720 IFCP=73THENQA=18 GOSUB1171sIFZZ >0THENR=354s QA=0 
s G0T0400 
725 G0T0630 

750 IFCP=17ANDGF=0THENPRINT s PRINT"C BRN 3 THE GRATE I 
S LOCKED."sG0T0300 

751 G0T0630 
780 60T0630 
990 G0SUB1016 

992 0PEN2.8.2."OsENORDATA.S.R" 

994 FOR I=1TONN s I NPUT#2.0B7. (I, O) s NEXT 

996 INPUT#2,V,A„B,C.D.CP,R.SS,NV.NN 

998 F0RI=1T02538 INPUT42.P7. (1,6): NEXT 

1000 INPUT*2,P7.(16,5) ,PX(17,4) .P7.(28.2) .P7.(28,3) ,P 

7.(52.1) 

1002 INPUT#2.PX(56.2) ,PX(101,1) ,P7.(125,1) ,P7.(168,1 
) ,P*/.( 174,1) 

1004 INPUT#2.P%( 176.2) ,P*/.( 176.3) ,P7. (176.1 > ,P7. (193, 
2),P%(221,3) 
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1005 INPUT#2,P7.(233,3) ,P7. (249,0) ,P7. (249,3) 

1006 INPUT#2 ,PD,CP,WB,ED,EF,S$,QY,GF,PC,BO,CO 

1007 INPUT#2,DO,OD,MD,LO,FL,GP,DK,SK,WK,BB,WP 

1008 INPUT#2,TB,DW,FC.GC,SB,BD,BA,DD,WR,RD,DF, LC 

1009 INPUT#2,SA,CC,L1,BC,PV,MC s CL0SE2 s 0PEN6,8,6,"0 
s ,I +A$+ 11 S .R" 

1010 PRINT:IFCP>1BTHENP0KE532S1,0:P0KE53280,0 

1011 R«CP-1 a PRINT"C BRN 3 " a:B0SUB4002:PRINT:PRINT:GO 
T0202 

1016 PRINT: PRINTER VS. ORNG 3 PRESS ' SPACE' WHEN READ 
Y TO CONTINUE." 

1017 F0RI-1T010:GETSP$:NEXT 

1018 GETSPSsIFSP$<>" "THEN1018 

1019 CL0SE6:PRINT"CCD.BRN3 OK ... HANG ON ...":RETU 
RN 

1020 GOSUB1016 

1021 OPEN 1,8.15. 11 SO: ENORD AT A ": CLOSE 1 

1022 0PEN2.8.2."0:ENORDATA.S.W":Z *«CHR*(13) 

1024 FOR I = 1TONN: PR I NT#2.0B7. (1,0): Z$? s NEXT 

1026 PRINT#2,V;Z$:A:Z*:B:Z$;C:Z*:D:Z$:CP:Z$;R:Z$sS 
S:Z$:NVsZ$;NNsZ$: 

1028 F0RI=1T0253:PRINT#2,P%(1,6)a Z$;:NEXT 

1030 PRINT#2,P7.(16,5) sZ*:P7.(17,4) 5Z*;P7(28,2) :Z$aP 

7.(28,3) :Z$:P7.<52,1) :Z$: 

1032 PRINT#2,P7.(56,2) :Z$;P7.(101,1)a Z$s P7. (125,1) a Z* 
a P7. (168,1) a Z$:P7. (174,1) p Z*| 

1034 PRINT#2,P7. (176,2) a Z$aP7.( 176,3) a Z*:P7.( 176,1) a Z 
$: P7.( 193,2) ;Z*;P7. (221,3) ;Z$: 

1035 PR I NT#2, P7. (233,3) * Z* a P7. (249, 0> s Z*a P7. (249,3) a Z 
$: 

1036 PRINT#2,PDaZ$: CPsZ$aWBsZ$:ED:Z$:EF;Z$:S$a Z*s Q 
Y5Z*sGFsZ*sPC;Z$sB0sZ$:C0sZ$: 

1037 PRINT#2,D0a Z*aOD:Z$: MD:Z$a LQs Z*aFLaZ*:GP:Z$* D 
K:Z$s SK:Z$sWK:Z*;BB:Z$:WP:Z$: 

1038 PRINT#2,TB:Z$:DW:Z*:FC:Z$s GCsZ$:SB:Z*sBD:Z$:B 
A: Z$; DD: Z$: WR; Z$; RD; Z$: DF: Z$: 

1039 PRINT#2,SA;Z$:CCs Z*a LI a ZSs BC:Z$:PV;Z$s MC:Z*5 L 
C: Z$; 

1040 CL0SE2:0PEN6,8,6,"0:"+A$+",S,R" 

1048 CL0SE2:IFQY=1THEN5000 

1049 G0T0300 

1050 R=334s G0T0400 

1080 A=0: FOR I -1 TONN: IF0B7. (1,0) =2THENA=A+0B7. (1,1) 

1081 NEXT:IFQA=1THENRETURN 

1082 PRINT"CRVS.BRN3YOU HAVE SCORED":As"CCL3 OUT 0 
F 300." 

1083 PRINT: S$ = " USELESS ADVENTURER. " : I FA >30THENS$= " 
BEGINNER." 

1084 IFA>60THENS$="PERSON WHO'S GETTING BETTER." 

1085 IFA>90THENS$="SEASONED ADVENTURER." 

1086 IFA>120THENS$="PERSISTENT ADVENTURER." 

1087 IFA>150THENS$="PERSON WHO'S MORE THAN HALFWAY 
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THERE." 

1088 IFA>1B0THENS$="WISE OLD SOUL." 

1089 IFA>21OTHENS*="VERY WISE OLD SOUL." 

1090 IFA>240THENS*="MEAN WIZARD!" 

1091 1FA>270THENS$="MASTER ADVENTURER." 

1092 PRINT"!RVS.BRN 3 THIS GIVES YOU A PERSONAL RATI 
NG AS A":PRINT"IRVS3"S$ 

1093 IFQY=1THENRETURN 
1095 G0T0300 

1110 IFL0=0AND <CP>19ANDCP< 246)THENR=259s G0SUB4000s 
G0T0300 

1111 R=0:G0T0202 

1140 R=CP— 1 s P7. (CP, 6) =0 s G0SUB4000 s G0T0300 

1170 PRINT"IRVS.BRN3YOU ARE CARRYING: 

1171 ZZ=0: F0RI=1T0NN: IFOBY. (1.0) =-lTHENZZ=ZZ+l: IFQA 
=OTHENPRINTOB*(I> 

1172 NEXT:IFQA=1THENRETURN 

1173 IFZZ=OTHENPRINT"WOTHING." 

1174 G0T0300 

1200 IFN0=480RN0=500RN0=570RN0=910RN0=83THENR=345: 
G0T0400 

1202 R=346:G0T0400 

1230 PRINT"!RVS.GREY1FIND A TOILET ...":G0T0300 
1260 PRINT"CRVS.GREY3WATCH IT ...":G0T0300 
1290 PRINT"!RVS.GREY3 1 BEG YOUR PARDON ?!":G0T0300 
1320 PRINT"IRVS.GREY3TUT TUT TUT ...":G0T0300 

1350 I FOB"/. < NO. 0) < >-1AND0B7. < NO. 0 > < >CPTHENPR I NT: PR IN 
T"!RVS.GREY3WHERE IS IT?":60T0300 

1351 I FN0=33 AND0B7. < NO. 0) =— 1 THENR=335: 0B7. (33.0) =0: Z 
Z=ZZ-1:G0T0400 

1352 IFN0=42THENR=336:G0T0400 

1353 IFN0=63THENR=337:G0T0400 

1354 IFN0=29THENR=33B:G0T040O 

1355 R=339:G0T0400 

1380 IFNO<>36ANDN0< >69THENR=340:G0T0400 

1381 I FOB - /. (35 . O) =-1 THENR=341: 0B7. (35.0) =0: OBX (34.0) 
=-1:G0T0400 

1382 I FOB'/. (69.0) =-1 THENR=347: 0B7. (69.0) =0: Z Z=ZZ-1: G 
0T0400 

1383 PRINT:PRINT"!RVS.GREY3YOU CAN'T.":G0T0300 

1410 IFN0=29ANDEF=1THENR=342:G0T0400 

1411 I FOB*/ < NO . O ) < >-1OROB*/. < NO , 0) < >CPTHENPR I NT : PR I NT 
"IRVS.GREY3WHERE IS IT?":G0T0300 

1412 IFN0=42THENR=343:G0T0400 
1414 R=344:G0T0400 

1440 I FOB*/. < NO. 0) < >-1THENPRI NT: PR I NT " ! RVS . GREY 3 YOU 
HAVEN'T GOT THAT.":G0T0300 

1441 IFDFTHEN1450 

1442 IFCP=233ANDN0=55THENR=371:OB %( NO.O >=CP:Z Z=Z Z- 
1:G0T0400 

1443 IFCP=233ANDN0=75THENR=370:OB*/.(N0.0>=0: ZZ=ZZ-1 
: P7. (233.3) =234: TB=0: G0T0400 
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1444 IFCP=233THENR=374:0B7.(N0,0)=CP: ZZ=ZZ-1:GQTQ40 
0 

1445 I FCP= 101 ANDN0=55THENR=372 s 0B7. < NO. 0) = 136: P7. < 10 

1.1) =102:TB=0:ZZ=ZZ-1:G0T0400 

1446 IFCP= 101AND0B7.(NO.1) >0THENR=373:QB%(NO.O) =0: Z 
Z=ZZ-1: PH (101.1)=102:G0T0400 

1447 IFCP=101THENR=374:OB7.(NO■0)=CP:ZZ=ZZ-1:G0T040 
0 

1448 GOTO1860 

1450 I FNO< >55THENR=375: 0B7. (NO,0) =CP: G0SUB4000: R=37 
6:G0SUB4000:GOTO1453 

1451 IFI NT (RND (. 5) * 10) >2THENR=377: 0B7. (55.0) =CP: 0B7. 
(61.0)=0:DF=0:G0T0400 

1452 PRINT"C CD.ORNG 1MI SSED!":PRINT:R=376:G0SUB4000 

1453 IFINT < RND(.5)*10)>9THENR=379:G0SUB4000:G0T050 
00 

1454 PRINT:PRINT"CCD•RVS.ORNG3 IT MISSED!":PRINT:GO 
T0313 

1470 IFEF<>1THENR=397:G0T0400 

1471 IFNO<>29THENR=398:G0T0400 

1472 R=399:G0SUB4000:PRINT:PRINT 

1473 G0SUB60000:PRINT 

1474 IFCM*="ATTACK DRAGON"ANDCP=168ANDP7.(168,1)=0T 
HENR=400: DK= 1: P7. < 168.1) =169: G0T0400 

1475 IFLEFT* (CM*, 5) = " ATTAC M THENR=401: G0T0400 

1476 I FCP=52ANDP7- (52.1) =OANDCM*= M PUSH ROCK " THENP7. ( 

52.1) =53:R=402:BB=1:G0T0400 

1477 I FCP=52ANDP7. (52.1) =0ANDCM*= " MOVE ROCK " THENP7. ( 

52,1)=53:R=402:BB=1:G0T0400 

1478 I FCP=243ANDSA=0ANDLEFT* (CM*.4)="SWIM" THENR=40 
3:SA=1:EF=0:G0T0400 

1479 IFCM*="GET LOST"THENEF=0: R=404: 0B7. (29,0) =CP+1 
:G0T0400 

1480 IFLEFT*(CM*.5)='" CARRY"THENPRINT:PRINT"C BRN 3 'L 
IKE. I'M NOT A DONKEY. MAN'. ":G0T0300 

1481 G0SUB508:1F(VB >21ANDVB< 26)THENPRINT:PRINT"DON 
'T GET ALL UN-COOL AND HEAVY. MAN.":G0T0300 

1490 R=405:G0T0400 
1500 GOTO1470 

1530 I FCP= 159AND0B7. (2.0) =0THENR=349: 0B7. (2,0) =CP: GO 
T0400 

1531 IFCP< 52THENPRINT:PRINT"C RVS•GREY 3 NOTH ING HAPP 
ENS.":G0T0300 

1532 R=351:G0SUB401:G0T05000 

1560 IFCP=199ANDCC=0THENCP=2:G0T0402 

1562 IFCP=2ANDCC=0THENCP=199:G0T0402 

1563 GOTO1592 

1590 IFCP»150THENR=352:G0SUB401:CP=151:G0T0402 

1591 IFCP=166THENR=352:G0SUB401:CP=144:G0T0402 

1592 PRINT:PRINT"CBRN3W0THING HAPPENS.G0T0300 
1620 R=353:G0T0400 

1648 IFCP=176ANDN0=67THEN1667 
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1650 IFCP“176ANDN0=67THEN1667 

1651 IFN0<>4ANDN0< >31ANDN0< >43ANDN0< >47ANDN0<>56AN 
DN0< >64ANDN0<>101THENR=260:0OTO4OO 

1652 IFCP=16ANDN0=31THEN1670 

1653 I FN0»4ANDPC=0AND < OB*/. (4,0) =CPOROB'/. (4.0)=-1> THE 
NR=261:PC=1:B0T03500 

1654 I FN0=4ANDPC= 1 AND (0B7. (4.0) =CPQR0B7. < 4.0) — 1 > THE 
NR»262:B0T0400 

1655 I FN0=43AND < 0B7. (43.0) — 10R0B7. (43.0) «CP) THENR=2 
63:GOT0400 

1656 I FNO= 101 AND ( OB*/. (101.0) =-10R0B7. (101.0) =CP) THEN 
R=264:B0T0400 

1657 I FN0=47ANDCP=33THEN 1673 

1658 IFN0=560RN0=67THEN3300 

1659 IFN0=64THEN1662 

1661 R=265:60T0400 

1662 IF0B7. (64,0) < >CPANDOB% (64,0) < >-l THENPRINT"C CD. 
RVS.GREY3ZT ISN'T HERE.":B0T0300 

1663 B0=B0+1sR=266 

1664 I FB0=5THENR=267: OB'/. (5,0 > =CP: G0T0400 

1665 IFBO>5THENPRINT"C CD 3 7HE BOX IS NOW ATOMIC SIZ 

E. AND YOU CAN'T OPEN IT. M :B0T0300 

1666 60T0400 

1667 IFMD=1THENR=274:G0T0400 

1668 IFNO<>67THENR=275:B0T0400 

1669 MD=1:R=276:P'/.(176.1)=183:P'/.(176.2)=177:P'/.(176 
,3)=179:B0T0400 

1670 IFGF=1THENPRINT“CCD,RVS,GREY3THE GRATE IS OPE 
N.":G0T0300 

1671 IFOBZ(32.0)<>-lTHENPRINT"CCD,RVS.GREYIYOU HAV 
E NO KEY.":G0T0300 

1672 BF=1:PRINT:PRINT"CRVS.BREY3THE GRATE SWINGS 0 
PEN. " : P’/. (16.5) =17: G0T0299B 

1673 IFCO=1THENR=268:G0T0400 

1674 I FOB'/. (1.0) < >-1 THENR=269: G0T0400 

1675 R=270: OB'/. (6.0)=35:C0=i:G0T0400 

1676 IFDO=1THENR=271:B0T0400 

1677 IFRD=0THENR=272:GOT0400 

1678 F0RI=10T017:A=I:B=25:C=129:G0SUB50:NEXT:B0T04 
00 

16B0 PRINT:PRINT"CRVS.ORNB3YOU'LL HAVE TO TRY RE-P 
HRASING THAT.":G0T0300 

1710 IFN0037THEN1290 

1711 N0=40:G0T01740 

1740 IFNO< >40ANDN0< >41THENR=279:G0T0400 

1741 I FOB'/. (37.0) < >-1ANDOB'/. (38.0) < >-1 THENPR I NT " C RVS 
.ORNG3YOU'VE NOT GOT THE LAMP.":G0T0300 

1742 IF(N0=40ANDLO=1>OR(N0=41ANDL0=0)THENPRINT"CCD 
.BRN37T IS ALREADY! M :B0T0300 

1743 I FN0=40THENL0= 1: OB'/. (37,0) =0: OB'/. (38,0) =-1: GOTO 
1745 

1744 L0=0: OB'/. (37,0) =-1: OB'/. (38.0) =0 
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1745 PRINT"CCD.BRN3. ":G0T03O0 

1770 G0SUB5300 

1771 IFOBJi<N0,0)=—1THENPRINT"CCD.BRN3Y0U'VE ALREAD 
Y SOT IT.":G0T0300 

1772 IFZZ>7THENPRINT"CCD,BRN3YOU'RE CARRYING TOO M 
UCH.":G0T0300 

1773 IFED=1ANDEFANDN0=29THENR=284 s EF=1sG0T0400 

1774 IF < CP=1010RCP=233)ANDN0=54THENR=2B6:G0T0400 

1775 IF(CP=1500RCP=166)ANDN0=94THENR=2B7 s G0T0400 

1776 IFCP=243ANDN0=77THENR=289:G0T0400 

1777 IFN0=60ANDGP=1THENR=288:G0T0400 

1778 IF(NO>15ANDNQ<29)THENR=279:G0T0400 

1779 IFN0=30THEN1050 

1780 IFN0=310RN0=400RN0=41OR(N0>46ANDN0<52)OR <N0>5 
5ANDN0<60)THENR=290:G0T0400 

1781 I FNO-670RNO=700RNO«730RNO=74ORNO'=76ORNO=«78OR < 
N0>79ANDN0<100)THENR=291:G0T0400 

1782 IFN0=61THENR=292:G0T0400 

1783 IFCP“28ANDN0=45THENR=294s G0T0400 

1784 IFN0=650RN0=66THENR=293:G0T0400 

1785 I FOB'/. < NO.0 > < >CPTHENR=298: G0T0400 

1786 I FN0=42 ANDOB'/. < 44.0 > — 1 THENR=295s G0T0400 

1787 I FN0=42AND0B'/. (43.0) < >-1 THENR=296: G0T0400 

1788 IFN0=2ANDCP=66THENR=297:G0T0400 

1789 IFN0=3ANDCP=168ANDDK=OTHENPRINT s PRINT"WITH A 
20 TON DRAGON LYING ON IT?“sG0T0300 

1790 IFCP=159ANDN0=2ANDGC=0THENPRINT:PRINT"C BRN 31T 
'S STUCK TO THE GROUND.":G0T0300 

1791 IF (N0=1060RN0=36) AND0B7. (34.0) < >-1 THENR=368: GO 
T0400 

1792 I FNQ= 106AND0B'/. (107.0 > — 1 THENNO= 107: GOTO 1771 

1795 IFNO= 106THENN0= 107sZZ=ZZ-ls0B7.(106,0) =0:0B7.<3 
4,0)=0 

1796 I FN0=36THENN0=35: Z Z=Z Z -1 s OB'/. (36,0) =0 s OB'/. <34,0 
) =0 

1797 IFN0=53THENPRINT:PRINT“CBRN3YOU MUST BE KIDDI 
NG.“:G0T0300 

1799 PR I NT 11 C CD. R VS. ORNG 3 OK. "s ZZ=ZZ+l:0B5C<N0.0)=-ls 
G0T0300 

1800 GOTO1680 
1830 GOTO1770 

1860 60SUB5300 

1861 I FOB'/. < NO. 0) < >-1 THENR=282: G0T0400 

1862 IFNO=10THENR=2B3 s G0SUB4000 s GOTO1864 

1863 I FN0=44AND0B'/. (42.0) =CPTHENR=285; OB7. < 42,0) =0 s G 
0SUB4000:OBX(44.0)=CPs G0T0300 

1864 I FCP=2BANDSK=0ANDN0=42THENR=299: OB'/. < 42.0) =0: G 
0T0400 

1865 I FCP= 16BANDDK=0ANDN0=42THENR=300 s OB'/. < 42.0) =0: 
G0T0400 

1866 I FCP= 174ANDWK=0ANDN0=42THENWK= 1: R=301 s P'/. (174. 
1) = 175s 0B7. <42.0) =CPs ZZ=ZZ-1: G0T0400 
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1867 I FCP=66ANDBA=0ANDN0=2AND0B% (2.0)=-1 THENR=348s 
0B7. (2,0) =0 s OBy. (39.0) =CP :BA=1:G0T0400 

1868 IFN0=38THEN0By.(38.0) =0: OB'/.(37,0) =CP: ZZ=Z 2 - 1 : L 
0=0 s PRINT s PRINT"C RVS.GREY30K.":G0T0300 

1869 IF (N0=1070RN0= 106 > AND0B7. (107,0) =-1 THENR=369 s 0 
B7. (NO. 0) =0: 0B7. (34,0) =CP: GOTO 1875 

1870 IF (NO=360RN0=35> ANDOB’/. (35,0 > =-1 THENR=369: OB - /. ( 
NO, 0) =0: OB 7. (34.0) =CP s GOTO 1875 

1874 0B%(NO.0)=CP:PRINT"CCD.RVS.GREY30K.ZZ-ZZ-ls 
G0T0300 

1875 ZZ=ZZ-1s G0T0400 

1890 IFEF=1ANDN0=29THENR=411:G0T0400 

1891 I FCP= 168ANDN0=63ANDP*/. (168.1) =0THENR=410 s G0T04 
00 

1892 IFTB=1ANDN0=54THENR=409: G0T0400 

1893 IFN0=65ANDCP=174THENR=40B:G0T0400 

1894 IFNO<>45THENR=413:80T0400 

1895 I FPy. < 28.2) < >0THENR=414 s G0T0400 

1896 R=412:G0SUB4000: PRINT:PRINT sG0SUB60000 

1897 IFLEFT*(CM*.3)< >"YES"THENR=415 s G0SUB4000s GOTO 
5000 

1898 R=416s SK=1 s P*/. (28.2) =29s P7. (28.3) =30: OBy. (45.0) = 
0:G0T0400 

1920 GOTO1890 
1950 GOTO1890 
1980 R=407:G0T0400 
2010 GOTO1890 

2040 IFCP=129ANDCM*< >"JUMP EVEN HIGHER"THENR=364:G 
0T0400 

2041 IFCP=129THENR=365iG0SUB4000:CP-130:G0T0402 

2042 IFCP=130THENCP-129:G0T0402 

2043 IF (CP-430RCP-44) ANDWR=0THENR=361: G08UB4000: CP 
-87-CP:G0T0402 

2044 IF(CP=430RCP=44)THENR-363:G0SUB4000:G0T05000 

2045 A=0: FOR I-0T05:IFPX(CP.I> =-1THENA-A+1 

2046 NEXT 

2047 IFA >0THENR=360:G0SUB4000:G0T05000 

2048 R-362:G0T0400 

2070 IFNO<>44THENR=359:G0T0400 

2071 I FOBy. (44.0) < >-1THENPRI NT: PR I NT » C RVS. GREY 3 YOU 
AIN'T GOT IT!":G0T0300 

2072 IFWR=1THENPRINT:PRINT"C RVS.GREY 34GAIN?":G0T03 
00 

2073 IFCP043THEN1592 

2074 R-358:WR=1:G0T0400 
2100 G0T02130 

2130 I FCP=52ANDP7. (52,1) =0ANDN0=50THENR=3B2: G0T0400 

2131 R—383:G0T0400 
2160 60T02130 

2190 IFCP=1ANDNO-81THENCP=2:G0T0402 

2191 IFN0=650RN0=630RN0=610RN0=540RNO=45ORN0=420RN 
0—29THENR—357:G0T0400 
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2192 PRINTsPRINT"CRVS-GREY3SORRY- DON'T UNDERSTAND 
THAT ONE-":G0T0300 

2220 IF0B7- (35-0)0-1 THENR=384 s G0T0400 

2221 IFNO< >520RCP<>55THENR=369 s B0T02230 

2222 IFWP=OTHENWP=1s R=385 s G0T02230 

2223 IF WP=1THENWP=2:R=386s G0T02230 

2224 IFWP=2THENWP=3:R=387 s G0T02230 

2225 IFWP=3THENWP=4 sR=388 s G0T02230 

2226 IFWP >3THENR=389 s G0T02230 

2230 0B7. (35 - 0) =0 s 0B7. (34-0) =-1 s G0T0400 

2250 IFNO<>4ANDN0<>31ANDNO< >43ANDN0< >47ANDN0< >56AN 
DNO<>64ANDN0< >101THENR=277:G0T0400 

2251 IFCP=16ANDN0=31THENR=278 s G0T0400 

2252 IFN0=56AND(CP=1760RCP=125)THENPRINT"C CD,RVS-0 
RNG3IT WON'T BUDGE-"sG0T0300 

2253 IFN0=47ANDCP=33THENPRINT"C CD-RVS-ORNG3IT SNAP 
PED SHUT AFTER OPENING ANYWAY."sG0T0300 

2254 I FNQ=64AND < 0B7. (64 • 0) =CP0R0B7. (64-0) — 1) THENPR I 
NT"CCD-RVS-ORNG 3 YOU CAN'T."s G0T0300 

2255 I FN0=4 AND < 0B7. (4 - 0) =CPOROB"/. (4 - 0)«-1) THENPR I NT " 
C CD-RVS-ORNG 3 YOU CAN'T.":G0T0300 

2256 GOTO1661 

2280 IF0B7.< 107-0) < >-l THENPR I NTs PRINT" CGREY3WHAT WI 
TH?"s G0T0300 

2281 I FCP< > 125THENR=366 s 0B7. < 107 - 0) =0 s OB % < 34 - 0) =-1 s 
G0T0400 

2282 I FRD= 1 THENPR I NT s PR I NT " C RVS. GREY 3 /IGA IN? " s G0T03 
00 

2283 RD= 1 s R=367 s P7. (125 ■ 1) -126 s 0B7. (107 - 0) *0 s D0= 1 s OB 
7. < 34 - 0) — 1 s GOTO 1678 

2310 R=390s G0T0400 

2340 IFCP<>159ANDNO< >2THENR=391s G0T0400 

2341 IF0B7- (62,0)0-1 THENR=392s G0T0400 

2342 IFGC=1THENR=393 s G0T0400 

2344 GC= 1 s R=394 s 0B7. (2 - 0) =CP s G0T0400 

2370 IFCP<>159ANDNO<>2THEN1770 

2371 G0T02340 

2400 IFCP=249THEN2404 

2401 IFCP<>55ANDN0< >52THENR=383 s G0T0400 

2402 I FOB"/- (55,0) O-1 THENR=395s G0T0400 

2403 R=396s G0T0400 

2404 IFNO<>79THENR=383s G0T0400 

2405 I FOB"/. (55-0) 0-1THEN2402 

2406 IFBC* 1 THENPR I NT s PR I NT " C RVS. GREY 3 /IGA IN? " s G0T03 
00 

2407 BC=1s R=424s G0T0400 
2430 G0T02400 

2460 IF(CP=550RCP=56)ANDWP< >3ANDN0=52THENR=460s GOT 
0400 

2461 IF(CP=550RCP=56)ANDWP=3ANDN0=52THENR=461s GOSU 
B4000s CP=11l-CPs G0T0402 

2462 I FOB"/. (68.0) < >CP AND0B7. (68,0)0-1 THENR=459 s GOTO 
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400 

2463 IFCP<>190ANDCP< >191ANDCP< >216ANDCP< >217THENR= 
462s GQT0400 

2464 IFN0<>68THENPRINTsPRI NT " CBRN3YOU CAN'T DO THA 
T."s G0T0300 

2465 IFCP=1900RCP=191THENR=463s G0SUB4000s CP=381-CP 
s OB - /. (68.0) =CP: G0T0246B 

2466 IFCP=2160RCP=217THENR=463 s G0SUB4000sCP=433-CP 
: OB - /. (68.0) =CP s G0T02468 

2467 R=383: 60T0400 

2468 IFEF=1THENPRINT:PRINT"C BRN 3 EDDY FOLLOWS YOU I 
N AN UNUSUAL BURST OF SPEED."sG0T0300 

2469 PRINT:PRINT"!RVS.GREY34ND HOW'S POOR OLD EDDY 
GOING TO FOLLOW YOU NOW?"sG0T0402 

2490 IFCP<>1930RN0< >69THENR=383s B0TQ400 

2491 I FOB7. < 2.0) < >-1 THENR=444s G0SUB4000s CP= 192 s GOTO 
402 

2492 IFEF=1THENR=446s G0SUB4000s CP=192 s G0T0402 

2493 OBX (2.0) =0: OB - /. < 69.0) =-1 s R=448s G0SUB4000s CP= 19 
4 s G0T0402 

2520 GOTO1680 

2550 IFCP<>193THENR=265 s G0T0400 

2551 IFNO<>70THENR=265:G0T0400 

2552 IF0B7. (2.0) < >-1 THENR=445s G0T0400 

2553 R=447:0B7.(2.0) =0sG0SUB4000:CP=192:G0T0402 

2580 P 7. (206.2) =207s IFCP >2160RCP< 206THENR=440s G0T04 
00 

2581 IFOBX (72.0) < >-1 THENR=441 s G0T0400 

2582 IFOBX(71.0)< >CPTHENR=443s GQT0400 

25B3 IFNO<160RN0>27THENPRINTsPRINT"CRVS.GREY3GIVE 
ME A DIRECTION TOO."sG0T0300 

2584 IFNO >21THENN0=N0-6 

2585 NO=NO-16 sIFCP=206AND(N0=00RN0=3> THEN2588 

2586 IFCP=216ANDNO=1THEN2588 

2587 R=442 s G0SUB4000: IFP7. (CP . NO) < >OTHENCP=P - /. (CP. NO 
) s OB7. (71,0) =CP s G0T0402 

2588 PRINT:PRINT"CBRN3Y0U APPEAR TO BE TRYING TO R 

OW ON DRY LAND.":G0T0300 

2610 IFCP<>221ANDNO<>69THENPRINT s PRINT"C RVS.GRY 3 NO 
THING DOING.":G0T0300 

2611 IFOBX(69,0)< >-1THENPRINT s PRINT"C RVS.GREY 3 «0-0 
NE'S INTERESTED."s G0T0300 

2612 R=449s G0SUB4000 s OB - /. (69.0) =0 s Z Z=Z Z -1 s P - /. (221,3) 
=222:G0T0300 

2640 G0T02610 

2670 IFNO<>74THENR=331:G0T0400 

2671 IFCP<>226THENR=332:G0T0400 

2672 R=333:G0SUB4000:CP=229:G0T0402 

2700 IFCP=2060RCP=216THENR=434:G0SUB4000:G0T05000 

2701 IFCP >206ANDCP< 216THENR=436:G0SUB4000:G0T05000 

2702 IFCP=243ANDSA=0THENR=435:G0SUB4000:G0T05000 

2703 IFCP=243THENR=438:G0SUB4000:CP=244s G0T0402 
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2704 R=437 s G0T0400 
2730 G0T02310 

2760 IFCP< 252THENR=417s G0T0400 

2761 IFN0<>B0THENR=418 s GQTD400 

2762 IFCP<>253THENR=419 s G0T02765 

2763 I FOB7. < 44,0) < >252THENR®420 5 G0TQ2765 

2764 R=421 

2765 G0SUB4000s G0T05000 
2790 R=422s G0T0400 

2820 I FOB"/- (NO.O) =CPTHENPRINT s PRINT" CRVS,GREY3IN FR 
ONT OF YOU.":G0T0300 

2821 I FOB"/. (NO.O) =- 1THENPRINT:PRINT"C RVS . GREY 3 YOU ' R 
E CARRYING IT- STUPID!":G0T0300 

2822 R=423:G0T0400 
2850 G0T02460 

2880 I FNO= 101AND0B7. < 101 .0) =-1 THENR=450 s G0T0400 

2881 IFN0=101THENPRINT:PRINT"C RVS•GREY 3 WHAT MAGAZI 
NE?"s G0T0300 

2882 IFCP= 19ANDN0=87THENR=451 s G0T0400 

2883 IFCP=74ANDN0=90THENR=452s G0T0400 

2884 IFCP=80THENR=453 s G0T0400 

2885 IFCP=81ANDN0=87THENR=454:G0T0400 

2886 IFCP=2520RCP=253THENR=455:G0T0400 

2887 IFCP=137AND< N0=910RN0=92)THENR=456:G0T0400 

2888 IFCP=199AND(N0=910RN0=92)THENR=457:G0T0400 

2889 IFCP=176ANDN0=72THENPRINT s PRINT"C BRN 3PECULIAR 
BRAND OF DWARVISH s CAN'T READ IT."sG0T0300 

2890 R=45B:G0T0400 
2910 R=439s G0T0400 
2940 G0T02910 

2970 IFCP=189ANDN0=73THENR=432:G0T0400 

2971 R=433s G0T0400 

2998 P7.(17.4)=16:G0T0300 
3000 GOTO1680 

3030 QY=0:PRINT"CCD•RVS-BRN34RE YOU SURE (Y OR W)? 

3031 GETSP*:IFSP$="N"THEN300 

3032 IFSP^< >"Y"THEN3031 

3033 PRINT"CCD.RVS.BRN3SAVE PROGRESS TO DISK (Y OR 
N) ? 

3034 GETSP^ sIFSF^=""THEN3034 

3035 IFSP$="N"THEN5000 

3036 IFSP^< >"Y"THEN3034 - 

3037 QY=lsGOTO1020 

3060 FOR I = 1T0253: P7. (1.6) =1 s NEXT: PR I NT " C CD. RVS . GREY 
3OK.":G0T0300 

3090 FOR I = 1T0253 s P%*( 1.6) =0s NEXT: PRINT" CCD. RVS, GREY 
3OK.":G0T0300 

3120 REM PLUGH RESPONSE 

3121 IFCP=38THENCP=74:R=CP-1s G0SUB4000 s G0T0300 

3123 IFCP< >74THENPRINTs PRINT"CBRN3WOTHING HAPPENS. 
"s G0T0300 

3124 FOR I = 1TONN s I FOB"/. (1.0) =-l THENOB"/. (1.0) =CP 
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3125 NEXT: OB*/. (38.0) =-1: CP=3B: R=CP-1: B0SUB4000 

3126 I FOB*/. (8.0) =74THEN0B*/. (8.0) =-1 

3127 I FOB7. (107.0) =74THEN0B*/. < 107.0) =-1 

3128 G0T0300 

3150 1FCP<740RCP >80THEN3160 

3151 DD=DD+1:IFDD=12THENR=355:G0SUB4000:G0T05000 

3159 RETURN 

3160 IFCP<24BTHENRETURN 

3161 MC=MC+1:IFMC=12THENR=355:G0SUB4000:G0T05000 

3162 RETURN 

3180 IFCP=20RCP=70RCP=80RCP=1780R(CP >205ANDCP< 217) 
ORCP= 179THEN0B*/. (36.0) =CP 

3181 IFCP< 740RCP >80THEN312 

3182 IFL0=0THENR=356s G0SUB4000:G0T0300 

3183 G0T0312 

3210 IFCP=250THENCP=226:G0SUB4000:G0T03213 

3211 IFCP=226THENCP=250:G0T0402 

3212 GOTO1592 

3213 QA=1:GOSUB1080:IFA >260ANDCC=OANDCP >43THENCC=1 
s LC=1:QA-0:G0T03215 

3214 QA=0:G0T0300 

3215 LI=50:PRINT:PRINT"CGREY14 VOICE BOOMS OUT 'CA 
YES CLOSING. EXIT 

3216 PRINT"BY MAIN ENTRANCE ONLY 

3217 FOR I = 1TONN: I FOB*/. (1.0) =-l THENOB*/. (1.0) =0 

3218 NEXT: OB7. (44.0) =253: OB*/. (38.0) =-1: OB*/. (55.0) =-1: 
GF=0:G0T0300 

3300 IFCP=125THEN1676 

3301 IFCP=176THEN1667 

3302 IFCP0249THEN1661 

3303 IFBC=0THENR=425:G0T0400 

3304 I FOB*/. (32.0) < >-1 THENR=430: G0T0400 

3305 R=431: P*/. (249.0) =251: P*/. (249.3 > =250: G0T0400 
3330 PRINT:PRINT"C BRN 3 OKAY THEN:":PRINT;PRINTCHR*( 
34):MID$(CM*.5):CHR$(34):PRINT:PRINT"SATISFIED?"iG 
0T0300 

3500 OBX(1,0) =59:OBX(2.0) =159:OBX(3,0) =168:OBX(4,0 
) =123:0B7. (5,0) =0 

3501 OBX (6,0) =0:0BX (7,0) =187: OB*/ (8,0) =78: OBX (9,0) = 
105:OBX(10,0)=142 

3502 OBX(11,0)=163:OBX(12,0)=199:OBX(13,0)=90:OBX( 
14,0)=250:OBX(15,0)=251 

3509 G0T0400 

3600 PRINT:PRINT"CRVS,GREY3 'CAVES CLOSED'. ":CP=252 
:G0T0402 

4000 PRINT"CBRN3"::IFR>252THENR=R+7:G0T04002:REM M 
ESSA6E 

4001 R=CP-1:1FSS=1ORPX(CP,6)=1THENPRINTP$(CP):GOTO 
4020 

4002 PX(CP,6)=1:A$=STR*(R):A$=MID$(A#,2):F3=F2 

4003 IFLEN(A*)=1THENF*=A*:A*="COLO":G0T04006 

4004 IFLEN(A*> =2THENF$=MID*(A$.2 >:A*="COL"+LEFT*(A 
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*.l):G0T04006 

4005 F*=RIGHT*(A$,1):A*-" COL"+LEFT*(A*.2) 

4006 F2-VAL(F*): P0KE923.F2+4B 

4007 IFF2<=F3THENCL0SE6s 0PEN6.8.6,"0 s"+A*+",S,R "j B 
$=A$: G0T04009 

4008 IFA*< >B*THENCL0SE6 s 0PEN6,8,6,"0 s"+A*+", S, R ": B 

*=A$ ' 

4009 SYS900 

4010 GET46.Z* 

4011 IF Z*="3"THENFORI = 1T02000:NE X T:PRINT: G0T04010 

4012 I FZ$="#"THEN4014 

4013 PRINTZ*::G0T04010 

4014 IFR >252THENPRINT:RETURN 

4015 PRINT 

4020 G0SUB6000:RETURN 
5000 REM PLAY AGAIN OPTION 

5002 PRINT:PRINT:PRINT"CCD,RVS«BRN3PLAY AGAIN (Y 0 
R N>? 

5003 GETSP*:IFSP$=""THEN5003 

5004 IFSP$="N"THEN5010 
5006 IFBP*< >"Y"THEN5003 
5008 RUN 

5010 QY=1s PRINT:G0SUB1080:CL0SE6:END:REMSYS64738 

5300 I FN0=37AND0B7. (38,0) =-1 THENN0=38 

5301 IFN0=34AND0BX(35,0 > =-1THENN0=35 

5302 I FN0=34AND0B7. < 107.0) ■-1 THENNO= 107 

5303 I FN0=36AND0B*/. (35.0) =-1 THENN0=35 

5304 I FNO= 106AND0B - /. (107.0) =-1THENNO™ 107 
5309 RETURN 

6000 IF < CP=160RCP=17)ANDGF=OTHENPRINT:PRINT"C RVS.G 
REY37HE GRATE IS LOCKED.RETURN 

6001 IFCP=160RCP=17THENPRINT:PRINT"CRVS.GREY37HE G 
RATE IS OPEN.RETURN 

6002 IFCP>202ANDDF“1THENDF-0:RETURN 

6004 I FCP=28ANDSK=0THENR“303: PR I NT: PR I NT: G0SUB4000 

:A-200:B=29:C=129:G0SUB50:RETURN 

6006 IFCP=28THENR=304:G0T0401 

6008 IFCP=33THENR=305:G0T0401 

6010 IFCP=52ANDBB»0THENR»306:G0T0401 

6013 IF (CP >43ANDCP<206) ANDPV=0AND0B7. (4.0) < >2THEN62 
00 

6014 IFCP=55ANDWP=0THENR=308:G0T0401 
6016 IFCP=55ANDWP=1THENR=309:G0T0401 
6018 IFCP=55ANDWP=2THENR=310:G0T0401 
6020 IFCP=55ANDWP=3THENR=*311: G0T0401 
6022 IFCP=55ANDWP >3THENR=312:G0T0401 
6024 IFCP=66THENR=313:G0T0401 

6026 IFCP=26ANDED=0THENR=314:ED=1:EF=1:G0T0401 

6027 IFCP=103THENTB=0:RETURN 

6028 IFCP=101ANDTB=0ANDVB< >0THENR=315:TB=1:G0T0401 

6029 IFCP=102THENPRINT:PRINT"CBRN3THERE IS NO SIGN 
OF THE TROLL.":RETURN 
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6030 IFCP=123ANDFC=0THENFC=1:R=320:G0T0401 

6032 IFCP=125ANDD0=0THENR=32is G0T0401 

6034 IFCP=159ANDGC=0THENR=322s G0T0401 

6036 IFCP=i6BANDDK=0THENR=323s B0SUB4000s A=5:B=27s G 

=129s B0SUB50:RETURN 

6038 IFCP=174ANDWK=0THENR=324s G0T0401 
6040 I FCP= 176ANDMD=0THENR=325 s G0T0401 
6042 I FCP= 193ANDP7. (193.2) =0THENR=326s G0T0401 

6044 IFCP=233ANDTB=0THENTB=1:R=327s B0T0401 

6045 IFCP=234THENPRINT:PRINT"CBRN3THERE IS NO SIGN 
OF THE TROLL." 

6046 I FCP=24BANDSB=0THENSB= 1 s R=329 s 0B7. (37,0) =250s 0 
B%(38,0)=0:Z Z=Z Z-1:L0=0 s B0T0400 

6050 IFEF=1ANDCP<207THENPRINT:PRINT"C BRNIEDDY LUMB 
ERS ON BEHIND YOU. “s 0B7. (29.0) =CP 

6051 IFEF=1AND(CP >206ANDCP< 216)THENPRINT sPRINT"CBR 
N3EDDY SWIMS ALONGSIDE YOU. ": 0B7. (29,0) =CP 

6052 IFEF=1ANDCP >215THENPRINT:PRI NT " C BRN 3 EDDY LOPE 
S ALONG BESIDE YOU. "s OB’/. (29,0) =CP 

6053 I FCP=248THEN0B*/. (38.0) =0: 0B7. (37,0) =246: Z Z=Z Z-1 
6100 IFCP >19ANDINT(RND(.5)*100)>97THENR=317:G0T040 
1 

6102 IFCP>19ANDDW=0ANDINT(RND(.5 > *100)>75THENDW=1s 
0B7. (55.0) =CP s R=318 s G0T0401 

6104 I FDF= 1THEN0B7. (61,0) =CP s R=380: G0T0401 

6105 IF(CP>19ANDCP<167)ANDRND(.5)*100>97ANDDW=1THE 
NR=319:DF=1:OBX(61,0)=CP:G0T0401 

6107 IFOBX(29.0)=CPANDEF=OTHENEF=1:R=406:G0T0401 

6199 RETURN 

6200 IFINT(RND(.5)*100)< 70THEN6014 

6202 A=0: FOR I=1 TO 15 s IF0B7. (1.0) =-l AND0B7. (1.1) >0THEN 
A=A+1 

6203 NEXT:IFA<1THEN6014 

6204 PV=1:R=464:PRINT:G0SUB4000sPRINTsFORI=1TO15:1 
FOBX (1.0) =—1AND0B7. (1,1) >0THEN0B7. (1,0) = 123 

6205 NEXT:G0T06014 

6300 SYS49152.570+VB*30,0 
60000 A=TI:CM*="" 

60002 PRI NT " C RVS,GREY 3 * C OFF,CL 3": 

60005 GETZ* 

60006 IF(TI-A)>3600THENPRINT" ":GOT060150 

60007 IFZ*=""THEN60005 

60010 Z=ASC(Z*):IFZ >95THEN60005 

60080 ZL=LEN(CM*):IFZL>27THEN60110 

60100 IFZ>31THENCM*=CM*+Z*:PRINTZ*::G0T060002 

60110 IF Z=13ANDZLTHENPRINT" "sRETURN 

60120 IFZ=20ANDZLTHENCM*=LEFT*(CM*.ZL-1):PRINTZ*: 

60140 60T060002 

60150 PR I NT "CCD, RVS, GREY 3 (JET ON WITH IT!": PRINT" CC 
D.RVS,PUR 3 WHAT NOW 7COFF3 "::G0T060000 
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If you look at lines 8-44 first of all, these read in a vast amount of 
data from disk that is necessary to keep the program up and run¬ 
ning. In order, the program reads in the map data, the short room 
descriptions, the direction words, the verbs, the nouns, the object 
descriptions, the position of the objects at the start of the game, 
and finally the points value of all the objects. As in the original 'Col¬ 
ossal Cave' the idea of the game is to get all the treasures back to 
the building outside which the game begins, and then solve the 
mysteries of the end game. Consequently, various objects that you 
encounter are awarded points as treasures. 

Line 101 opens up a file to the disk so that, when the disk is access¬ 
ed for the first message or room description there is a file open. 
Otherwise we might accidentally get a FILE NOT OPEN? error and 
the program will come to an abrupt halt. 

Now look at lines 4000-4020, which access the various messages 
and room descriptions from disk and display them on the screen. 
You've seen something similar to this routine in Chapter 3. The on¬ 
ly difference now is that sometimes we'll want a message, and 
sometimes a room description, and the variable R determines which 
it is to be. Values of R greater than 252 mean that we want a 
message, and various steps have to be taken to sort that out, while 
values of R equal to 252 or less (0 to 252 makes 253 values, and 
there are 253 room descriptions involved in this game) mean that 
we're reading a room description. The rest of the code is then pret¬ 
ty much as it was in the Chapter 3 listing. 

The only difference comes at the end, in line 4020. Here, if a message 
was displayed program execution returns from this subroutine, but 
if a room description was printed up (either long or short, as deter¬ 
mined by line 4001) then we have to go to the subroutine starting 
at line 6000 before going back to the main program. This is mainly 
a straightforward 'if you're in this room and this has opened then 
print this message' type of routine. 


Back to the main program 

Back in the main part of the program, everything continues very 
much as normal, including the input routine starting at line 390 
(although there are a few added checks for various words in lines 
505-508, including the verb SAY, which we'll come to in a minute), 
until we arrive at line 990. 
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Lines 990-1049 are the load and save parts of the program, and these 
are used to record your progress on disk and restore a previously 
played game. The prompt in both cases is for the player to remove 
the master disk and insert a new, formatted disk in the drive: pro¬ 
gress is saved to or loaded from this disk. When the save or load 
is finished you must remove this disk and re-insert the master disk, 
otherwise all sorts of chaos might ensue. 

Lines 1080-1095 are the scoring part of the game, and the variable 
QY as used in line 1093 (and 1048 incidentally) is there to check 
whether you're quitting the game or not. If you are, then a rating 
is given before going back to the QUIT part of the program, other¬ 
wise program execution carries on as normal. 

Lines 1470-1500 are the next interesting part of the program, and 
this is used to deal with your companion in the caves, Eddy the 
underground hippy. It is this section of code that handles the verb 
TALK, and in this game you're only allowed to talk to Eddy, and 
for that he must be in the same location as yourself, so the first two 
lines of this routine check for those two facts. 

After that the program just checks for various things that you might 
want your intrepid underground friend to do, and responds and prints 
up a suitable message accordingly. In order to solve the game com¬ 
pletely, it is necessary to enlist the help of Eddy on a number of oc¬ 
casions. 

The rest of the code is pretty straightforward. After the last chapter 
you should be able to work out what most of it is doing and how 
the game as a whole was put together. References to various verbs, 
nouns and objects won't mean very much, since we haven't come 
to the routines to implement all of those yet, but everything will be 
revealed in the next few pages. 

Now for the plug. If you really can't face typing all of this in, copies 
of it are available on disk direct from the publishers. The disk you'll 
get contains the introduction, the game itself, and all the necessary 
data files. 

A word of warning, however. The program makes extensive use of 
string handling, and as you are probably aware this can occasionally 
cause problems on the 64 in the form of garbage collection. So if your 
copy of the program appears to 'freeze' for a few seconds, and nothing 
seems to be happening, don't be tempted to reach for the run/stop 
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key, just sit back and wait for a while until the computer sorts itself out. 

There are two ways around this. One is continually to invoke a PRINT 
FRE(O) statement every time the WHAT NOW ? prompt appears, but 
this slows the whole game down. 

The second way is to use a compiler, for which you'll find a listing in 
Chapter 10. With boundless generosity this is included on the disk as 
well (as indeed is The Lost Wallet listing), so that when you've finished 
examining the source code you can compile it and have a really fast 
game. But be sure that you always compile any program onto a disk 
containing only that program, as the compiler makes a lot of files while 
going about its business and these take up some considerable room 
on the disk. 

There is another program from Duckworth which uses many of the 
techniques explored in this book, and that is 'The Odyssey', parts 
of which have cropped up in this book from time to time. That pro¬ 
gram invokes most of the machine-code routines we've discussed, 
and has the added bonus of residing in memory at all times: no div¬ 
ing off to the disk every five seconds. Mind you, we did have to 
split it up into two separate parts. 

Enough of the promotion, back to verbs, nouns, objects and, first 
of all, short room descriptions. 


Room descriptions 

One of the features of 'Zork', and other great adventure games, is 
that they present you with a number of different sets of room descrip¬ 
tions. A long one, for the first time that you get there, a shorter 
one, for a second visit, and an extremely brief one for any subse¬ 
quent visits. 

That technique has been used, after a fashion, in 'Enormous Cave', 
although I've stuck to just two types of description, namely long 
and short. The long one is used when you first visit a location, and 
the short one for any further visits. However, if you want all room 
descriptions to be long or short, you just have to enter the verbs 
LONG or SHORT respectively. 

Thus, if you've visited a location once and then come back to it to 
find a very short description but want to read the whole thing again, 
entering LONG and then LOOK will let you read the original descrip- 
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tion. This is there in case you missed a cryptic clue first time around. 


20 DIMP*<253) 

22 F0RI=1T0253: READPS(I> s NEXT 
24 0PEN2,8'2. "Os SHORT,S,W" 

26 F0RI=1T0253:PRINT#2,P$(I)sCHR$(13);sNEXT 
28 CL0SE2 

99 END 

100 DATA"YOU ARE AT END OF ROAD." 

101 DATA"VOU ARE INSIDE. BUILDING." 

102 DATA"VOU ARE AT END OF ROAD." 

103 DATA"yOU ARE IN MIDDLE OF FOREST." 

104 DATA“yOU ARE AT TOP OF HILL." 

105 DATA"yOU ARE AT BOTTOM OF HILL." 

106 DATA"yOU ARE IN VALLEY IN FOREST." 

107 DATA"yOU ARE AT SLIT IN ROCK." 

108 DATA"YOU ARE IN 20 FOOT DEPRESSION." 

109 DATA"yOU ARE SOUTH OF DEPRESSION." 

110 DATA“y0U ARE ON ROUGH TRACK." 

111 DATA"yOU ARE ON LONG EAST-WEST PATH WITH HIGHW 
ALLS." 

112 DATA"yOU ARE ON LONG EAST-WEST PATH." 

113 DATA"yOU ARE ON LEVEL TRACK." 

114 DATA"yOU ARE WALKING ALONG TRACK." 

115 DATA"yOU ARE IN DEPRESSION WITH GRATE." 

116 DATA"yOU ARE IN SMALL CHAMBER BENEATH D 

EPRESSION." 

117 DATA"y0U ARE CRAWLING OVER COBBLES." 

118 DATA"yOU ARE IN DEBRIS ROOM." 

119 DATA"yOU ARE IN AWKWARD CANYON." 

120 DATA"yOU ARE IN SPLENDID CHAMBER." 

121 DATA"yOU ARE STUMBLING ALONG PASSAGE." 

122 DATA"DEAD END." 

123 DATA"yOU ARE IN GLOOMY TUNNEL." 

124 DATA"DEAD END." 

125 DATA"TOP OF SMALL PIT." 

126 DATA“YQU ARE IN NARROW TUNNEL." 

127 DATA"YOU ARE AT ONE END OF VAST HALL." 

128 DATA"yOU ARE EAST OF HALL OF MISTS." 

129 DATA"yOU ARE WEST OF HALL OF MISTS." 

130 DATA"YOU ARE IN NARROW TUNNEL SMELLING OF SEAW 
ATER.“ 

131 DATA"yOU ARE IN SEDIMENTARY ROCK ROOM." 

132 DATA"YOU ARE IN SHELL ROOM." 

133 DATA"YOU ARE IN SMALL OPENING IN ROCK." 

134 DATA"YOU ARE CLOSE TO HALL OF MISTS." 

135 DATA"YQU ARE LOW MISTY TUNNEL." 

136 DATA"yOU ARE IN LOW TUNNEL." 

137 DATA"YOU ARE AT KINK IN ROCK." 

138 DATA"YOU ARE IN NO-MIST ROOM." 

139 DATA"yOU ARE ON DISTURBED GROUND." 
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140 DATA"VOLI ARE CLOSE TO HALL OF MISTS." 

141 DATA"VOU ARE SOUTH OF HALL OF MISTS." 

142 DATA"VOU ARE IN LONG NARROW HALL." 

143 DATA"yOU ARE SOUTH OF GAPING CRACK." 

144 DATA"yOU ARE IN EAST SIDE CHAMBER." 

145 DATA"yOU ARE IN WEST SIDE CHAMBER." 

146 DATA"yOU ARE IN LOW TWISTING TUNNEL." 

147 DATA"yOU ARE IN SMOOTH LOW TUNNEL." 

148 DATA"yOU ARE IN LONG SLOPING CORRIDOR." 

149 DATA "yOU ARE IN BEDQUILT." 

150 DATA"yOU ARE EAST OF BEDQUILT." 

151 DATA"yOU ARE IN NOT-THE-SWISS-CHEESE ROOM." 

152 DATA"yOU ARE NORTH OF TWO PIT ROOM." 

153 DATA"yOU ARE IN TWO PIT ROOM." 

154 DATA"yOU ARE IN EASTERN PIT." 

155 DATA"yOU ARE AT TOP OF DROP." 

156 DATA"yOU ARE IN GIANT ROOM." 

157 DATA“yOU ARE EAST OF GIANT ROOM." 

158 DATA"yOU ARE NEAR TWISTING PASSAGEWAYS." 

159 DATA"yOU HAVE ENTERED MAZE OF PASSAGEWAYS." 

160 DATA"YOU ARE LOST IN MAZE OF PASSAGEWAYS." 

161 DATA"YOU ARE LOST IN MAZE OF PASSAGEWAYS." 

162 DATA"YOU ARE LOST IN MAZE OF PASSAGEWAYS." 

163 DATA"yOU ARE LOST IN MAZE OF PASSAGEWAYS." 

164 DATA"YOU ARE LOST IN MAZE OF PASSAGEWAYS." 

165 DATA"YOU ARE LOST IN MAZE OF PASSAGEWAYS." 

166 DATA"YOU ARE LOST IN MAZE OF PASSAGEWAYS." 

167 DATA"YOU ARE LOST IN MAZE OF PASSAGEWAYS." 

16S DATA"YOU ARE LOST IN MAZE OF PASSAGEWAYS." 

169 DATA"YOU ARE LOST IN MAZE OF PASSAGEWAYS." 

170 DATA"YOU ARE WEST OF TWO PIT ROOM." 

171 DATA"YOU ARE AT JUNCTION OF PATHS." 

172 DATA"YOU ARE IN ALCOVE." 

173 DATA"yOU ARE IN DARK ROOM." 

174 DATA"YOU ARE IN JUMBLE OF CORRIDORS." 

175 DATA"yOU ARE IN SERIOUS TROUBLE!" 

176 DATA"YOU ARE IN JUMBLE OF CORRIDORS." 

177 DATA"YOU ARE IN JUMBLE OF ROCKS." 

17B DATA"YOU ARE IN JUMBLE OF ROCKS." 

179 DATA"YOU ARE IN MYSTERIOUS ALCOVE." 

180 DATA"YOU ARE ON LOW TRACK NEAR ECCENTRIC A 

REA* 11 

181‘DATA"DEAD END." 

182 DATA"YOU ARE IN FRONT OF ARCHWAY." 

183 DATA"YOU ARE AT CROSS-ROADS.“ 

184 DATA“YOU ARE IN CONFUSION OF TUNNELS." 

185 DATA"YOU ARE TO EAST OF LAND." 

186 DATA"YOU ARE IN CONFUSION OF TUNNELS." 

187 DATA"YOU ARE TO WEST OF LAND." 

188 DATA"yOU ARE IN SHADOWY AREA." 

189 DATA"YOU ARE WEST OF CENTRE OF THIS LAND." 
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190 DATA"yOU ARE IN CENTRE OF ECCENTRIC AREA." 

191 DATA"VOU ARE EAST OF CENTRE OF THIS LAND." 

192 DATA"yOU ARE IN SHADOWY AREA." 

193 DATA"VOU ARE AT FISSURES OF ROCK." 

194 DATA"YOU ARE IN WINDY TUNNEL." 

195 DATA"YOU ARE IN TUNNEL OF ROCK." 

196 DATA“YOU ARE IN WINDY TUNNEL." 

197 DATA"YQU ARE IN MAZE OF RUBBLE." 

198 DATA"yOU ARE SOUTH OF ECCENTRIC AREA." 

199 DATA"YOU ARE CLOSE BY DEEP CHASM." 

200 DATA"yOU ARE ON NORTHERN SIDE OF CHASM.” 

201 DATA"VOU ARE ON SOUTHERN SIDE OF CHASM." 

202 DATA"YOU ARE ON LOW EAST-WEST CORRIDOR." 

203 DATA"YOU ARE AT TURN IN PATH." 

204 DATA"YQU ARE ON WIDE PATH." 

205 DATA"YOU ARE ON MAIN TRACK." 

206 DATA"VOU ARE IN ENORMOUS CAVE." 

207 DATA"VOU ARE IN VAST CAVE." 

208 DATA"y0U ARE IN LOW TUNNEL." 

209 DATA"YOU ARE IN SMLL HOLE." 

210 DATA"VOU ARE IN PROPPED UP TUNNEL." 

211 DATA"YOU ARE EAST OF GIANT ROOM." 

212 DATA"YOU ARE IN AN ARRAY OF TWISTING TUNNELS. 

213 DATA"YOU ARE IN AN ARRAY OF TWISTING TUNNELS. 

214 DATA"YQU ARE IN AN ARRAY OF TWISTING TUNNELS. 

215 DATA"YOU ARE IN AN ARRAY OF TWISTING TUNNELS. 

216 DATA"YOU ARE IN AN ARRAY OF TWISTING TUNNELS. 

217 DATA"YOU ARE IN AN ARRAY OF TWISTING TUNNELS. 

218 DATA"YOU ARE IN AN ARRAY OF TWISTING TUNNELS. 

219 DATA"YOU ARE IN AN ARRAY OF TWISTING TUNNELS. 

220 DATA"YOU ARE IN AN ARRAY OF TWISTING TUNNELS. 

221 DATA"YOU ARE IN AN ARRAY OF TWISTING TUNNELS. 

222 DATA"YOU ARE AT CENTRE OF TUNNELS." 

223 DATA"YOU ARE ON PATH HEADING DOWN." 

224 DATA"YOU ARE AT OLD STEEL GRATE." 

225 DATA"YOU ARE SOUTH OF GRATE." 

226 DATA"YOU ARE IN THE HARD ROOM." 

227 DATA"YOU ARE NEAR VOLCANO." 

228 DATA"YOU ARE IN FRONT OF ROCK." 

229 DATA"YOU ARE WEST OF LEDGE." 

230 DATA"YOU ARE IN SMALL ROUND PASSAGE." 

231 DATA"YOU ARE IN SMALL ROUND PASSAGE." 

232 DATA"YOU ARE IN VERY DARK CORRIDOR." 

233 DATA"YOU ARE ON EDGE OF PRECIPICE." 

234 DATA"YOU ARE IN TINY CORRIDOR." 

235 DATA"YOU ARE ON GENTLY SLOPING PSSAGE." 

236 DATA"YOU ARE IN ODD-SHAPED ROOM." 

237 DATA"YOU ARE IN LARGE OPEN SPACE." 

238 DATA"YOU ARE IN HIGH ROOM." 

239 DATA"YOU ARE IN HIGH ROOM." 

240 DATA"YOU ARE IN WARM-WALLED ROOM." 
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241 DATA"VOU ARE IN COOL ROOM." 

242 DATA"yOU ARE IN CLEAR-AIR ROOM." 

243 DATA"yOU ARE NEAR MYSTERIOUS PATH." 

244 DATA"yOU ARE IN WARM-WALLED ROOM." 

245 DATA"yOU ARE IN SMALL CHAMBER." 

246 DATA"yOU ARE ON EDGE OF BREATHTAKING VIEW." 

247 DATA"yOU ARE WEST OF VOLCANO." 

248 DATA"yOU ARE WEST OF LOW TUNNEL." 

249 DATA"yOU ARE IN FRONT OF SPECTRE OF CAVES." 

250 DATA"yOU ARE PAST SPECTRE OF CAVES." 

251 DATA"yOU ARE IN DIRTY CHAMBER." 

252 DATA"YOU ARE IN LOW ROUND CHAMBER." 

253 DATA"yOU ARE IN STICKY ROOM." 

254 DATA"YOU ARE IN THICK-MUD ROOM." 

255 DATA"YOU ARE IN DISGUSTING SLIMY ROOM." 

256 DATA"YOU ARE AT END OF MUD TUNNEL." 

257 DATA"yOU ARE NORTH OF MAGNIFICENT CAVERN." 

258 DATA"yOU ARE IN MAGNIFICENT CAVERN." 

259 DATA"yOU ARE SOUTH OF MAGNIFICENT CAVERN." 

260 DATA"yOU ARE IN ROOM WITH DEEP VOICE." 

261 DATA"yOU ARE ON PATH OF MISTS." 

262 DATA "yOU ARE ON PATH OF MISTS." 

263 DATA "yOU ARE ON PATH OF MISTS." 

264 DATA"yOU ARE ON PATH OF MISTS." 

265 DATA"yOU ARE ON HARD GROUND." 

266 DATA"yOU ARE IN VERY HIGH ROOM." 

267 DATA"YOU ARE IN MYSTERIOUS SHADOWY ROOM." 

268 DATA"yOU ARE ON WIDE CAVERNOUS PATH.” 

269 DATA"YOU ARE NEAR STAGNANT POOL OF WATER." 

270 DATA“yOU ARE ON WIDE PATH." 

271 DATA"yOU ARE IN LOW ROUND TUNNEL." 

272 DATA"DEAD END." 

273 DATA"yOU ARE UNDERNEATH ARCH OF ROCK." 

274 DATA"yOU ARE SOUTH OF ARCHWAY." 

275 DATA"YOU ARE AT DOORWAY." 

276 DATA"YOU ARE IN MAGICAL LAND." 

277 DATA"yOU ARE UNDERNEATH WATERFALL." 

278 DATA"yOU ARE IN MAGICAL LAND." 

279 DATA"yOU ARE ON ROCKY OUTPOST." 

280 DATA"YOU ARE IN MAGIC LAND." 

281 DATA "YOU ARE NEAR CENTRE OF MAGIC LAND." 

282 DATA"yOU ARE AT CENTRE OF MAGIC LAND." 

283 DATA"yOU ARE NEAR CENTRE OF MAGIC LAND." 

284 DATA"yOU ARE IN MAGIC LAND." 

285 DATA"yOU ARE IN SOUTH-WEST CORNER OF LAND." 

286 DATA"yOU ARE HERE FOREVER!" 

287 DATA"yOU ARE NEAR CENTRE OF LAND." 

288 DATA"yOU ARE IN LARGE OPEN ROOM WITH C 

REATURES. M 

289 DATA"yOU ARE IN SOUTH-EAST CORNER OF LAND." 

290 DATA"yOU ARE ON DEEP LEDGE." 
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291 DATA"VOU ARE ON LONG LOW DARK TUNNEL." 

292 DATA"VOU ARE IN UNDERGROUND BAR." 

293 DATA"yOU ARE BEHIND BAR." 

294 DATA"yOU ARE IN STRAIGHT TUNNEL." 

295 DATA"yOU ARE IN LOW CRAWL." 

296 DATA "yOU ARE IN HIGH-CEILING ROOM." 

297 DATA"yOU ARE NEAR ENORMOUS CANYON." 

298 DATA"yOU ARE COLD ROOM." 

299 DATA"yOU ARE- IN ICE-WHITE CORRIDOR." 

300 DATA"yOU ARE WHITE-SHEEN CORRIDOR." 

301 DATA"yOU ARE IN SALTY SEA-WATER ROOM." 

302 DATA"YOU ARE NEAR CLIFF-FACE." 

303 DATA"yOU ARE LEDGE NEAR LAKE." 

304 DATA"YOU ARE ON LOW LEDGE." 

305 DATA"YOU ARE ON SHORE OF LAKE." 

306 DATA"yOU ARE ON SURFACE OF LAKE." 

307 DATA"yOU ARE ON SURFACE OF LAKE." 

308 DATA"yOU ARE ON SURFACE OF LAKE." 

309 DATA"yOU ARE ON SURFACE OF LAKE." 

310 DATA"yOU ARE ON SURFACE OF LAKE." 

311 DATA"yOU ARE ON SURFACE OF LAKE." 

312 DATA"yOU ARE ON SURFACE OF LAKE." 

313 DATA"yOU SEE LAND." 

314 DATA"yOU ARE ON SURFACE OF LAKE." 

315 DATA"yOU ARE ON SOUTHERN SHORE OF LAKE." 

316 DATA"yOU ARE ON TOP OF LEDGE." 

317 DATA"yOU ARE IN SMALL DARK CAVE." 

31B DAT A"yOU ARE ON ROCKY GROUND." 

319 DATA"YOU ARE AT END OF CAVE." 

320 DATA"yOU ARE NEAR ASTROTURF GARDEN." 

321 DATA"yOU ARE ON SPRINGY SURFACE." 

322 DATA"YOU ARE IN WELL-KEPT GARDEN." 

323 DATA 11 yOU ARE IN GARDEN." 

324 DATA"yOU ARE NEAR 4 BY 4 PLANTS." 

325 DATA"YOU ARE NEAR WATER CREATURES." 

326 DATA"yOU ARE IN ASTROTURF LAND." 

327 DATA"yOU ARE FLOATING MAN." 

328 DATA"yOU ARE ON WEST SIDE OF PIT." 

329 DATA"DEAD END." 

330 DATA"yOU ARE IN SHARPLY TURNING CORRIDOR." 

331 DATA"YOU ARE NEAR OLD BRIDGE." 

332 DATA"yOU ARE IN FRONT OF BRIDGE." 

333 DATA"yOU ARE ON WEST SIDE OF BRIDGE." 

334 DATA"yOU ARE ON THIRD LEVEL." 

335 DATA"yOU ARE ON SECOND LEVEL." 

336 DATA"yOU ARE ON FIFTH LEVEL." 

337 DATA"yOU ARE ON FOURTH LEVEL." 

338 DATA"TOU ARE ON SIXTH LEVEL." 

339 DATA"yOU ARE ON SEVENTH LEVEL." 

340 DATA"yOU ARE ON EIGHTH LEVEL." 

341 DATA"yOU ARE ON NINTH LEVEL." 
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342 DATA“yOU ARE 

343 DATA“yOU ARE 

344 DATA“yOU ARE 

345 DATA"yOU ARE 

346 DATA"yOU ARE 

347 DATA"yOU ARE 

348 DATA“yOU ARE 

349 DATA"yOU ARE 

350 DATA"yOU ARE 

351 DATA"yOU ARE 

352 DATA"yOU ARE 


IN FRONT OF POOL OF WATER." 

NORTH OF PIRANHA POOL." 

AT BOTTOM OF CORRIDOR." 

IN LOW ROUND CORRIDOR." 

IN TEETH OF GALE." 

IN DUSTY DARKNESS." 

NEAR BRACKEN AND MOSS." 

IN TINY ROOM." 

IN SECRET SHADOWY CAVE." 

AT NORTH-EAST END OF REPOSITORY." 
AT SOUTH-WEST END OF REPOSITORY." 


READY. 


This listing is fairly easy to follow, as each data statement represents 
a separate location. The first five lines of code read in each descrip¬ 
tion in turn, and then store the lot on disk under the filename 
SHORT. 

If you are undertaking the task of typing in the entire listing, a word 
of advice. Save the introduction and the main part of the game on 
one disk, and this short room description maker and the other pro¬ 
grams to come on another disk. Then, load in the data-making pro¬ 
grams one by one and run them to create files on the disk that has 
the introduction and the main program. That way you'll end up with 
one disk that has the entire set of programs and files on it, and you 
can use that disk to store your progress on. There is just about 
enough room on one disk to cram everything on, if you keep the 
data-making programs separate from the others. 

Having done all that, you can then load the complete game by typ¬ 
ing in: 

LOAD "0:*",8 

and RUN. The introduction loads the main program, which in turn 
reads in all the files before starting to play the game. 

This is what happens on the version sold by Duckworth, and you must 
use that same disk to LOAD and SAVE your progress. 


More room descriptions 

These are the long room descriptions, and as you can see they take 
up quite a bit of space. Take it a little bit at a time and it won't be 
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too bad. 


But before typing in all the data statements you'll need to know how 
to file them on disk and check that you've typed them in properly, 
and the following piece of code is meant to be used with all the room 
description and message data statements. 

O DATA162,6,32,198,255,32,228,255,201,42,208,249,3 
2,228,255,205,155,3,208 

1 DATA241,76,204,255 

2 FOR1-900T0922sREADA8 POKEI,As NEXT 

4 READAsIFA--1THENSTQP 

5 A$=STR$(A) :A$=MID$(A$,2) :A$="COL"+A$ 

10 0PEN2,8,2,"@0:"+A$+",S,W" 

20 READAS:FORI=1T0LEN<A$> :Z$=MID$(A$,I,1) 

21 IFZ$< > " ^ " THENPRI NT #2, ZSs s NEXT: PRINT42 ,CHRS (13) s 
s GOT020 

22 CL0SE2 

23 60T04 

25 B$="C0L3":F2=0 

26 0PEN6,8,6, “Os "+B$+" ,S,R" 

27 PRINT:PRINT:INPUT "NO."sAS:F3-F2:IFAS="-1"THENC 
L0SE6:END 

28 IFLEN(AS)=1THENFS=AS:A$="C0L0":G0T031 

29 IFLENCAS)«2THENFS«MIDS(AS,2):AS«"COL"+LEFTS(AS, 
1):Q0T031 

30 FS«RIGHTS(AS,1):AS-"COL"+LEFTS(AS,2) 

31 F2-VAL(FS):P0KE923,F2+48 

32 IFF2<-F3THENCL0SE6s0PEN6,8,6,"0:"+AS+",S,R":BS= 
AS:G0T035 

33 IFAS<>BSTHENCL0SE6s0PEN6,8,6,"0:"+AS+",S,R"sBS- 
AS 

35 SYS900 
37 GET*6,ZS 

41 IFZS-" 1 "THENFOR1=1T02000:NEXT:PRINT:G0T037 

42 IFZS-"#"THEN27 

43 PRINTZS::G0T037 


This is more or less the same as the program we saw in Chapter 
3. A short machine-code routine is read in first, followed by a suc¬ 
cessive reading of all the data statements before filing them on disk. 
If we look at the first lot of room descriptions we can see how the 
program operates. 

100 DATAO 

102 DATA"*0Y0U ARE STANDING AT THE END OF A ROAD 
104 DATA"BEFORE A SMALL BRICK BUILDING. GROUND 
106 DATA"YOU IS A FOREST. A SMALL STREAM FLOWS 
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108 DATA"OUT OF THE BUILDING AND MEANDERS OFF D 
OWN A VALLEY.# 

110 DATA"*1YOU ARE INSIDE THE BUILDING, A WELL 
112 DATA 11 HOUSE FOR A LARGE SPRING. THERE IS A 
114 DATA"TRAPDOOR IN THE FLOOR, ALTHOUGH THE ONLYE 
XIT OUT IS TO THE WEST.# 

122 DATA"*2YOU ARE STANDING AT THE END OF A ROAD 
124 DATA"BESIDE A SMALL BRICK BUILDING. 4R0UND 
126 DATA"YOU IS A FOREST. A SMALL STREAM FLOWS 
128 DATA"OUT OF THE BUILDING AND MEANDERS OFF D 

OWN A VALLEY.# 

130 DATA"*3Y0U ARE IN THE MIDDLE OF THE FOREST, 

132 DATA"WITH TREES ALL AROUND YOU, AND*PATHS H 
EADING OFF EVERYWHERE.# 

140 DATA"*4Y0U HAVE REACHED THE TOP OF A HILL IN 
142 DATA"THE FOREST.# 

150 DATA"*5YQU HAVE REACHED THE BOTTOM OF A HILL I 
NTHE FOREST.# 

160 DATA"*6YOU ARE IN A VALLEY IN THE FOREST, 

162 DATA"BESIDE A STREAM TUMBLING ALONG A ROCKY B 
ED.# 

164 DATA"*7/IT YOUR FEET ALL THE WATER IN THE 
166 DATA"STREAM SPLASHES INTO A 2-INCH SLIT IN T 
HE ROCK.# 

170 DATA"*8YOU ARE IN A 20 FOOT DEPRESSION 
172 DAT A"FLOORED WITH BARE DIRT. STRANGE, THERE 
174 DATA"USED TO BE A STEEL GRATE AROUND HERE 
176 DATA"SOMEWHERE, BUT 1 CAN'T SEEM TO SEE IT ATT 
HE MOMENT.# 

180 DATA"*9YOU ARE TO THE SOUTH OF THE DEPRESSION 
182 DATA"ON A ROUGH TRACK HEADING NORTH-SOUTH.#^ 
200 DATA1 

202 DATA"*OTHE PATH TAKES A TURN HERE, AND YOU CAN 
206 DATA"LOOK BOTH NORTH AND WEST. THE ROUGH 
208 DATA"NATURE OF THE SIDES OF THE PATH SUGGESTST 
HAT YOU CAN'T CLIMB UP.# 

212 DATA"*1YOU ARE ON A LONG WEST-EAST PATH. THE 
214 DATA"WALLS ARE QUITE HIGH NOW, AND CLOSE IN 
216 DATA"ABOVE YOUR HEAD.# 

220 DATA"*2Y0U ARE ON A LONG WEST-EAST PATH.# 

230 DATA"*3YOU ARE ON A FAIRLY LEVEL TRACK MADE UP 
232 DATA"FROM ROUGH GRAVEL AND STONES. TO THE 
234 DATA"NORTH-EAST YOU CAN STILL MAKE OUT THE 
236 DATA"FOREST, WHILE TO THE SOUTH-WEST ARE THE 
238 DATA"TOWERING SLOPES OF A HIGH MOUNTAIN.# 

240 DATA"*4YOU ARE WALKING ALONG THE TRACK. THERE 
242 DATA"IS A DEPRESSION IN THE GROUND TO THE 
244 DATA"WEST, AND SIGNS OF A DEEPER TRACK TO 
246 DATA"THE EAST. THE VIEW NORTH REVEALS 
248 DATA"NOTHING.# 
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250 DATA"*5Y0U ARE IN THE DEPRESSION, AND SET INTO 
252 DATA"THE FLOOR, AMONG THE DIRT, IS A STRONG S 
TEEL GRATE.# 

260 DATA"*6YOU ARE IN A SMALL CHAMBER BENEATH A 3 
262 DATA"BY 3 STEEL GRATE TO THE SURFACE. 4 LOW 
264 DATA"CRAWL OVER COBBLES LEADS INWARDS TO THE S 
OUTH.# 

270 DATA"*7Y0U ARE CRAWLING OVER COBBLES IN A LOW 
PASSAGE.# 

280 DATA"*8Y0U ARE IN A DEBRIS ROOM FILLED WITH 
282 DATA"STUFF WASHED IN FROM THE SURFACE. THE 
284 DATA"REMNANTS OF A NOTE ON THE WALL READ 
286 DATA "'MAGIC UOR ’, THE REST IS TORN AWAY.# 

288 DATA"*9Y0U ARE IN AN AWKWARD SLOPING EAST-WEST 
CANYON.#~ 

300 DATA2 


302 DATA"*OYOU ARE IN A SPLENDID CHAMBER 30 FEET 

303 DATA"HIGH. THE WALLS ARE FROZEN RIVERS OF 

304 DATA"ORANGE STONE. 4N AWKWARD CANYON AND A 
306 DATA"GOOD PASSAGE EXIT FROM EAST AND WEST.# 

310 DATA"*1Y0U ARE STUMBLING ALONG A LOW EAST-WEST 
312 DATA"PASSAGE. THERE ARE SIGNS OF A PIT 

314 DATA"AROUND HERE, BUT YOU CAN'T SEEM TO BET T 
0 IT.# 

316 DATA"*2DEAD END.# 

320 DATA"*34 GLOOMY TUNNEL HEADS OFF TO THE WEST, 
322 DATA"WHILE A CLEAR PATH CAN BE SEEN TO THE E 
AST.# 

340 DATA"*4DEAD END.# 

350 DATA"*54T YOUR FEET IS A SMALL PIT BREATHING 
352 DATA"TRACES OF WHITE MIST. A SMALL CRACK 
354 DATA"LEADS OFF TO THE SOUTH, AND THE SPLENDIDC 
HAMBER LIES TO THE NORTH.# 

360 DATA"*64 NARROW TUNNEL LEADS OFF TO THE NORTH, 
362 DATA"WHILE TO THE SOUTH LIES A STONE STAIR- 
364 DATA"CASE LEADING DOWNWARDS. THE STEPS HAVE 
366 DATA"CRUMBLED SLIGHTLY, BUT STILL SEEM R 

EASONABLY SAFE.# 


370 DATA"*7YOU ARE AT ONE END OF A VAST HALL 
372 DATA"STRETCHING OUT OF SIGHT TO EAST AND 
374 DATA"WEST. THE HALL IS FILLED WITH WISPS OF 
376 DATA"WHITE MIST SWAYING TO AND FRO ALMOST AS 
378 DATA"ALIVE.# 

3S0 DATA"*8YQU ARE IN THE EAST SIDE OF THE HALL OF 
MISTS.# 

390 DATA"*9Y0U ARE IN THE WEST SIDE OF THE HALL OF 
MISTS.#-'" 

400 DATA-1 


READY. 
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This gives us our first twenty room descriptions, starting at location 
one, just outside the building. This is somewhat confusingly refer¬ 
red to as description zero by the data statements, but we won't worry 
about that. 

As ever, when typing this lot in, look out for the 'chinaman's hat' 
symbol, which occurs in line 21 of the program that files everything 
away, and at the end of each group of ten room descriptions. This 
is meant to be the up-arrow key, which sits just above the RETURN 
key on the keyboard. 

If you load in the file-making program, and then type in the pro¬ 
gram headed ROOM DESCRIPTIONS PART ONE, you can save the 
whole lot as a program called (for example) COLDATAO-2. Then you 
can run the program, and watch the disk drive light flash away at 
you as the various files are created on the disk. When it runs out 
of data, or if you've been a good boy and typed in the final -1 data 
statement, the program will stop and you can test to see whether 
or not you've typed in the descriptions without any spelling mistakes. 

Enter: 

G0T025 

The disk drive light will come on, and you'll be prompted for a 
number. Since we've created room descriptions zero to nineteen 
for the first twenty locations, type in a number between zero and 
nineteen. Since we're only checking at this point you might as well 
go through them all in sequence to make sure everything's okay. 
Say you typed in number zero, then lo and behold the following will 
appear on the screen: 

You are standing at the end of a road 
before a small brick building. Around 
you is a forest. A small stream flows 
out of the building and meanders off 
down a valley. 

Or at least it should do. Note that letters in italics (e.g. the Y of the 
first word YOU in line 102) are meant to be upper case, while 
everything else is lower case. I must change my printer sometime! 

Typing in number one will produce the next room description, and 
so on. If you find any errors simply correct the appropriate data state¬ 
ment and re-run the entire program, which will wipe out the existing 
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files and create a whole load of new ones. Then you can do the 
G0T025 check again just to make sure. 

It doesn't happen in this first lot of descriptions, but occasionally 
you may find that the 64 appears to skip a line on the screen when 
a description is being printed, so that something might come out 
looking like this: 

You are west of the GIANT room. The 
ceiling is lower here, although the vast 

chasm still lies to the south. Many 
openings can be seen along the track to 
the east. 


No problem, as they say. Go to the data statement that starts: 
chasm still lies ... 


and before the first letter of the word 'chasm', or whatever word 
is causing you trouble, insert a cursor-up symbol by putting the cur¬ 
sor over the letter 'c', pressing shift and INST/DEL, and then cursor- 
up. Hitting RETURN and re-running the program will correct the of¬ 
fending line. 

Now for the rest of the descriptions. 

100 DATA3 

102 DATA"*OYQU ARE IN A NARROW TUNNEL. THE AIR 
104 DATA"SMELLS STRONGLY OF SEA-WATER HERE, AND 
106 DATA"THE MIST IS QUITE THIN. PATHS HEAD OFF T 
0 WEST, EAST AND SOUTH.# 

110 DATA"*1YOU ARE IN A LARGE ROOM CARVED OUT OF 
112 DATA"SEDIMENTARY ROCK. 7HE FLOORS AND WALLS 
114 DATA"ARE LITTERED WITH BITS OF SHELL 
116 DATA"EMBEDDED INTO THE STONE. A SHALLOW 
118 DATA"PATH LEADS SOUTHWARDS, AND A LOW TUNNEL E 
XITS TO THE EAST.# 

120 DATA"*2YOU ARE IN THE SHELL ROOM.# 

130 DATA"*3YOU ARE IN A SMALL OPENING IN THE ROCK. 
13 fc 2 DATA"THE AIR SMELLS STRONGLY OF SEA-WATER, 

134 bATA"AND THERE ARE PATHS HEADING NORTH, WEST A 
ND EAST.# 

140 DATA"*4YOU ARE CLOSE TO THE HALL OF MISTS. 

142 DATA"ffIST DANCES AROUND THE TUNNEL, MAKING IT 
144 DATA"DIFFICULT TO SEE WHICH DIRECTION TO T 
AKE.# 

150 DATA"*5Y0U ARE IN A LOW, MISTY TUNNEL. PATHS 
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152 DATA"CAN DIMLY BE MADE OUT HEADING TO WEST 
154 DATA"AND EAST, WHILE TO THE SOUTH THE AIR L 
OOKS TO BE SLIGHTLY CLEARER.# 

160 DATA"*6YOU ARE FORCED TO CRAWL THROUGH A LOW 
TUNNEL.# 

170 DATA"*7Y0U ARE AT A KINK IN THE ROCK. YOU CAN 
172 DATA"BARELY FIT THROUGH THIS NARROW PASSAGE, 
174 DATA"THE ROCK TAKING ON STRANGE, CONTORTED G 
EOMETRIC PATTERNS.# 

180 DATA“*8M0 MIST TO BE SEEN. PATHS LEAD OFF TO 
NORTH AND WEST.# 

190 DATA"*9THE GROUND IS QUITE DISTURBED HERE. A 
192 DATA"HINT OF A PIT LEADS DOWN, BUT IT'S HARD 
194 DATA "TO SEE HOW YOU COULD FIT THROUGH IT.#'' 

200 DATA4 

202 DATA"*0YOU ARE CLOSE TO THE HALL OF MISTS. TH 
E 

204 DATA"PATH IS QUITE CRUMBLY HERE, AND IT IS 
206 DATA"HARD TO KEEP A FOOTING. WIST DANCES 

208 DATA"ABOUT EVERYWHERE, AND ONLY DIMLY CAN YOU 

209 DATA"MAKE OUT PATHS TO NORTH, WEST AND EAST.# 

210 DATA"*1YOU ARE AT THE SOUTH END OF THE HALL OF 
212 DATA"MISTS. 7HINGS SEEM A LITTLE CLEARER TO 
214 DATA"THE SOUTH, MORE MISTY TO THE NORTH.# 

220 DATA"*2YOU ARE IN A LONG NARROW HALL. AT YOUR 
222 DATA"FEET IS A LARGE, GAPING CRACK, WHICH 
224 DATA"LOOKS MUCH TOO WIDE TO JUMP. LITTLE 
226 DATA"TRACES OF MIST PLAY ABOUT YOUR FEET, AND 

228 DATA"IN THE DIM LIGHT THE BOTTOM OF THE PIT 

229 DATA"LOOKS TO BE A MIGHTY LONG WAY OFF.# 

230 DATA"*3YOU ARE SOUTH OF THE GAPING CRACK, IN 
232 DATA"THE HALL OF THE MOUNTAIN KING. 

234 DATA"DIRECTIONS GET CONFUSED DOWN HERE, BUT 
236 DATA"IT SEEMS TO ME THAT PATHS LEAD NORTH, 

238 DATA"SOUTH, EAST AND WEST. SUCH A CHOICE!# 

240 DATA"*4YOU ARE IN A WEST SIDE CHAMBER OF THE 
242 DATA"HALL OF THE MOUNTAIN KING.# 

250 DATA"*5Y0U ARE IN AN EAST SIDE CHAMBER OF THE 
252 DATA"HALL OF THE MOUNTAIN KING. THERE IS 
254 DATA"LITTLE HEADROOM HERE.# 

260 DATA"*6Y0U ARE IN A VERY LOW, TWISTING TUNNEL. 
262 DATA"THE ROCK OVERHEAD IS SCARCELY HIGH 
264 DATA"ENOUGH TO CRAWL UNDER.# 

270 DATA"*7YOU ARE IN A VERY LOW. TWISTING TUNNEL. 
272 DAT A" /ALTHOUGH THE ROCK WALL IS QUITE SMOOTH 
274 DATA "TO THE TOUCH, YOU STILL HAVE TO BE 
276 DATA"CAREFUL TO AVOID THE LOW CEILING AND 
278 DATA"HEMMED-IN WALLS.# 

280 DATA"*8Y0U ARE IN A LONG SLOPING CORRIDOR WITH 
RAGGED SHARP WALLS.# 

290 DATA"*9Y0U ARE IN BEDQUILT, A LONG EAST-WEST 
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292. DATA"PASSAGE WITH HOLES EVERYWHERE.# A 
300 DATAS 

302 DATA"*OYOU ARE EAST OF BEDQUILT. THE ROCK 
304 DATA"CLOSES IN, ALLOWING EXITS ONLY TO NORTH A 
ND WEST.# 

310 DATA"*1Y0U ARE IN A ROOM WHOSE WALLS DON'T LOO 

K 

312 DATA"ANYTHING LIKE SWISS CHEESE. HOLES LEAD 
314 DATA"OFF EVERYWHERE, ALTHOUGH YOUR PROGRESS 
316 DATA"IS HAMPERED BY A LARGE BEDROCK BLOCK IN 
31G DATA"THE MIDDLE OF THE ROOM.# 

320 DATA"*2YOU ARE NORTH OF THE TWO PIT ROOM.# 

330 DATA"*3Y0U ARE IN THE TWO PIT ROOM. TO WEST 
332 DATA"AND EAST LIE GOOD PASSAGES, BUT IN BOTH 
334 DATA"DIRECTIONS YOU CAN SCARCELY SEE BEYOND 

336 DATA"EXTREMELY DEEP PITS. THE TRACK NORTH 

337 DATA "LEADS BACK TO BEDQUILT, WHILE TO THE 

33Q DATA"SOUTH LIES NOTHING BUT AN EXPANSE OF S 
□LID ROCK.# 

340 DATA"*4YOU HAVE WALKED DOWN INTO THE EASTERN 
342 DATA"PIT IN THE TWO PIT ROOM. YOU COULD 
344 DATA"WALK OUT TO THE WEST, BUT TO THE EAST 
346 DATA"YOU CAN SEE NOTHING BUT A ROUND HOLE, A 

348 DATA"GOOD 15 FEET OFF THE GROUND. THE SOLID 

349 DATA"ROCK HERE DOES NOT ALLOW YOU TO CLIMB UPA 
ND REACH THE HOLE.# 

350 DATA"*5YOU ARE STANDING AT THE TOP OF A 15 
352 DATA"FOOT DROP. TO THE EAST LIES A GIANT 

354 DATA"CORRIDOR, WHILE WEST LIES ONLY OBLIVION.# 
360 DATA"*6YOU ARE IN THE GIANT ROOM, WITH PATHS 

362 DATA"LEADING EAST AND WEST. TO THE SOUTH, 

363 DATA"SOME 100 FEET AWAY, YOU CAN MAKE OUT A 

364 DATA"WINDOW INTO ANOTHER ROOM, AND A SHADOWY 

365 DATA"FIGURE CAN BE SEEN THERE, PEERING BACK 

366 DATA"AT YOU. BETWEEN YOU AND IT IS A VAST 

367 DATA"CHASM, DROPPING OUT OF SIGHT TO THE 

368 DATA"FLOOR MANY HUNDREDS OF FEET AWAY. THE 

369 DATA"AWESOME ROCK WALLS ARE ALMOST SHEER, AS T 
HEY PLUNGE DOWN.# 

370 DATA"*7YOU ARE WEST OF THE GIANT ROOM. THE 
372 DATA"CEILING IS LOWER HERE, ALTHOUGH THE VAST 
374 DATA"CHASM STILL LIES TO THE SOUTH. MANY 

376 DATA"OPENINGS CAN BE SEEN ALONG THE PATH TO T 
HE EAST.# 

380 DATA"*870 THE WEST LIES A DECENT TRACK TO THE 
382 DATA"GIANT ROOM, WHILE TO THE EAST YOU CAN 
384 DATA"DIMLY MAKE OUT A JUMBLE OF TWISTING, 

386 DATA"TURNING PASSAGEWAYS. THE FLOOR LOOKS 

387 DATA"TO BE CRUMBLING AWAY SLIGHTLY, AND YOU 

388 DATA"SENSE THAT ONE FALSE MOVE COULD EASILY L 
EAD TO DISASTER.# 
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390 DATA"*9YOU HAVE ENTERED A MAZE OF TWISTING, 

392 DATA"TURNING PASSAGEWAYS. MYSTERIOUS 
394 DAT A"TUNNELS HEAD OFF IN ALL DIRECTIONS, 

396 DATA"LEADING GOODNESS KNOWS WHERE.# A 
400 DATA6 

402 DATA"*OYOU ARE LOST IN A TERRIBLE MAZE OF 
TWISTING PASSAGEWAYS.# A 
500 DATA—1 

READY. 

100 DATA7 

102 DATA"*OYOU ARE IN THE WESTERN SIDE OF THE TWO 
PIT ROOM.# 

110 DATA"*1YOU ARE AT A JUNCTION OF PATHS. PASSAGE 
S 

112 DATA"LEAD OFF IN ALL DIRECTIONS, ALTHOUGH IT 
114 DATA"LOOKS TO BE A TIGHT FIT TO THE EAST.# 

120 DATA"*2YOU ARE IN AN ALCOVE. A SMALL PATH 
122 DATA"HEADS BACK TO THE WEST, WHILE AN 
124 DATA"EXTREMELY NARROW TUNNEL HEADS EAST. 

126 DATA"4N EERIE LIGHT CAN BE SEEN SHINING 
128 DOTH"AT THE END OF THE TUNNEL.# 

130 DATA"*3Y0U ARE IN THE DARK ROOM. A TINY CRACK 
132 DATA"LEADS BACK TO THE EAST, WHILE AN EQUALLY 
134 DATA"TINY CRACK LEADS WEST. THERE IS A STONE 
136 DATA"TABLET ON THE WALL WHICH READS 
13B DATA"‘CONGRATULATIONS ON BRINGING LIGHT INTO T 
HE DARK ROOM'.# 

140 DATA"*4YOU ARE IN A JUMBLE OF CORRIDORS, WITH 
142 DATA"VERY SHARP WALLS. THE LIGHT OF YOUR 
144 DATA"TORCH FLICKERS IN A SLIGHT BREEZE. 

146 DATA"BETTER BE CAREFUL IT DOESN'T BLOW OUT.# 
150 DATA"*5WITH YOUR TORCH BLOWN OUT, YOU ARE IN 
152 DATA"SERIOUS TROUBLE. ONE FALSE MOVE AND 
154 DATA"YOU'LL PROBABLY FALL INTO A PIT.# 

160 DATA"*6Y0U ARE IN A JUMBLE OF CORRIDORS, WITH 
162 DATA"VERY SHARP WALLS. THE LIGHT OF YOUR 
164 DATA"TORCH FLICKERS IN A SLIGHT BREEZE. 

166 DATA"BETTER BE CAREFUL IT DOESN'T BLOW OUT.# 
170 DATA"*7YOU ARE STUMBLING ALONG OVER A JUMBLE 0 
FROCKS*# 

180 DATA"*8YOU ARE STUMBLING ALONG OVER A JUMBLE 0 
FROCKS.# 

190 DATA"*9YOU ARE IN A MYSTERIOUS ALCOVE. THERE 
192 DATA"IS SOMETHING WRITTEN ON THE WALL, BUT IT 
194 DATA"SEEMS TO BE WRITTEN IN AN ANCIENT 
196 DATA"TONGUE THAT YOU CANNOT TRANSLATE. 

198 DATA"SOMETHING ABOUT PLUGS, PLUGH, PLOUGH? I 
T'S HARD TO SAY.#'' 

200 DATAS 


228 



202 DATA"*0Y0U ARE ON A LOW TRACK THAT SEEMS TO 
204 DATA"TWIST AND TURN BENEATH YOUR VERY FEET. 

206 DATA'THE WALLS ARE QUITE HIGH HERE, AND A 

208 DATA"NOTE HIGH UP ON THE WALL READS 

209 DATA "‘ECCENTRICS ONLY'. WHAT CAN IT ALL M 
EAN?# 

210 DATA"*1DEAD END.# 

220 DATA"*2Y0U ARE IN FRONT OF AN ARCHWAY CARVED 
222 DATA"OUT OF THE ROCK. SOUTH YOU CAN SEE 

224 DATA"LIGHTS FLASHING, SCURRYING NOISES AS IF 

225 DATA"OF SMALL CREATURES SCAMPERING ABOUT CAN 

226 DATA"BE HEARD, AND IN THE DISTANCE SOMEONE 

227 DATA"SEEMS TO BE SINGING ABOUT GOLD. THE 

228 DATA"FOETID BREATH OF A TROLL CAN BE SMELT 

229 DATA"A LONG WAY OFF, AND YOU CAN HEAR HIS T 
HUMPING FEET. 

230 DATA" "s DATA"YOU ARE IN FRONT OF A VERY STRANG 
E LAND.# 

231 DATA"*3YOU ARE AT A CROSS-ROADS, WITH PATHS 

232 DATA"LEADING OFF IN ALL DIRECTIONS.# 

240 DATA"*4YOU ARE IN A CONFUSION OF TUNNELS AND 

241 DATA"HOLES, PASSAGES AND STAIRWAYS, LIGHTS 

242 DATA"AND SOUND. BE CAREFUL YOU DON'T TRIP A 
ND FALL.# 

250 DATA"*5YOU ARE ON THE EASTERN SIDE OF THIS 
252 DAT A"STRANGE AND WONDERFUL LAND.# 

260 DATA"*6Y0U ARE IN A CONFUSION OF TUNNELS AND 

261 DATA"HOLES, PASSAGES AND STAIRWAYS, LIGHTS 

262 DATA"AND SOUND. BE CAREFUL YOU DON'T TRIP A 
ND FALL.# 

270 DATA"*7YOU ARE DN THE WESTERN SIDE OF THIS 
272 DATA“STRANGE AND WONDERFUL LAND.# 

280 DATA"*8SHAD0WS BOUNCE OFF THE WALLS, MOCKING 
282 DAT A"LAUGHTER FILLS THE AIR, AND THE VERY 
284 DATA "WALLS THEMSELVES SEEM TO BE FULL OF 
286 DATA"STARING EYES AND WICKED FACES.# 

290 DATA"*9YOU ARE TO THE WEST OF THE CENTRAL PART 
*92 DATA"QF THIS SECTION OF THE CAVES. PATHS 
294 DATA“LEAD IN ALL DIRECTIONS.# A 
300 DATA9 

302 DATA"*OYOU ARE IN THE CENTRE OF THE ECCENTRIC 
304 DATA"AREA. PATHS LEAD OFF IN EVERY DIRECTION, 

306 DATA"ALTHOUGH THEY TWIST AND TURN SO MUCH 

307 DATA"THAT IT IS HARD TO FIND YOUR WAY.# 

310 DATA"*1Y0U ARE TO THE EAST OF THE CENTRAL PART 
312 DATA"OF THIS SECTION OF THE CAVES. PATHS 
314 DATA“LEAD IN ALL DIRECTIONS.# 

320 DAT A"*2SHAD0WS BOUNCE OFF THE WALLS, MOCKING 
322 DAT A"LAUGHTER FILLS THE AIR, AND THE VERY 
324 DATA"WALLS THEMSELVES SEEM TO BE FULL OF 
326 DATA"WICKED FACES AND STARING EYES.# 
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330 DATA“*3Y0U ARE SURROUNDED BY TORTURED FISSURES 
332 DATA"OF ROCK. THE TUNNELS SEEM TO 60 ON 
334 DATA"FOREVER, AND IT IS HARD TO KNOW WHICH W 
AY TO TURN.# 

340 DATA"*4THE WIND ECHOES EERILY THROUGH THE 
342 DATA"TUNNELS AROUND HERE. 10W, TURNING PATHS 
344 DATA"HEAD OFF IN MOST DIRECTIONS, ALTHOUGH 
346 DATA"THE PATH TO THE WEST SEEMS MOST P 

ROMISING.# 

350 DATA"*5Y0UR SENSE OF DIRECTION CONFUSED BY THE 
352 DATA"CONVOLUTED TURNINGS OF THE ROCK, YOU 
354 DATA"CAN NEVERTHELESS SEE WHAT SEEMS TO BE A 

356 DATA"MAJOR PATH TO THE SOUTH. THE TUNNEL OF 

357 DATA"ROCK, ALTHOUGH LOW AND TURNING, SEEMS TO 

358 DATA"OPEN UP SOMEWHAT IN THAT DIRECTION.# 

360 DATA"*6THE WIND ECHOES EERILY THROUGH THE 
362 DAT A"TUNNELS AROUND HERE. LOW, TURNING PATHS 
364 DATA"HEAD OFF IN MOST DIRECTIONS, ALTHOUGH 
366 DATA"THE PATH TO THE EAST SEEMS MOST P 

ROMISING.# 

370 DATA"*7Y0U ARE HOPELESSLY LOST IN THIS MAZE OF 
372 DATA"ROCK AND RUBBLE. PATHS APPEAR TO HEAD 
374 DATA"NORTH AND EAST, BUT IT'S HARD TO SAY 
376 DATA"WHETHER THESE ARE TRUE DIRECTIONS OR N 
OT.# 

380 DATA"*8Y0U ARE AT LAST TO THE SOUTH OF THE 
382 DATA"ECCENTRIC AREA. THE PATH NORTH IS FILLED 
384 DATA"WITH ECHOING VOICES AND BLINDING 

386 DAT A"FLASHES OF LIGHT, WHILE TO THE SOUTH A 

387 DATA"NARROW ROCK PATH LEADS OFF TO A DEEP C 
HASM.# 

390 DATA"*9Y0U ARE CLOSE BY A DEEP CHASM. A NORTH 

391 DATA"ERLY PATH LEADS AWAY, BUT TO THE SOUTH 

392 DATA"A HAZY MIST OBSCURES YOUR VIEW.# A 
400 DATA10 

402 DATA"*OYOU ARE ON THE NORTHERN SIDE OF AN 

403 DATA"EXTREMELY DEEP CHASM. THE TUNNELS HAVE 

404 DATA"OPENED UP HERE, AND TO EAST AND WEST YOU 

405 DATA"SEE NOTHING BUT A HAZY MIST. TO THE 

406 DATA"SOUTH LIES A RICKETY OLD BRIDGE, LONG 

407 DATA"DISUSED, THAT SEEMS TO HANG BY A MERE T 
HREAD TO THE ROCKFACE.# 

410 DATA"*1YOU ARE ON THE SOUTHERN SIDE OF THE 

412 DATA"CHASM. TO THE EAST A ROUGH TRACK LEADS 

413 DATA"AWAY, TO THE NORTH LIES THE OLD BRIDGE.# 
420 DATA"*2Y0U ARE CRAWLING ALONG A LOW EAST-WEST 

CORRIDOR.# 

430 DATA"*3THE PATH TURNS HERE. TO THE SOUTH THE 
432 DATA"CAVES ARE STARTING TO OPEN UP, BUT TO 
434 DATA"THE WEST LIES ONLY A LOW CRAWL.# 
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440 DATA"*4THE PATH 18 FAIRLY WIDE HERE, WITH ROOM 
442 DATA“FOR A NUMBER OF PEOPLE TO PASS QUITE 
444 DATA"EASILY. THE CEILING TOWERS HIGH ABOVE 
446 DATA"YOU, AND TO THE EAST YOU CAN JUST MAKE 
448 DATA"OUT THE BEGINNINGS OF A VERY LARGE CAVERN 
.# 

450 DATA"*5THE MAIN TRACK TURNS AGAIN AND AGAIN, 

451 DATA"AND YOU ARE FORCED TO HEAD EITHER NORTH 0 
R WEST.# 

460 DATA"*6YOU ARE IN AN ENORMOUS OPEN CAVE. THE 
462 DATA"VIEW TO THE SOUTH IS STUPENDOUS, WITH 
464 DATA"TOWERING ROCK FISSURES, PINNACLES OF 
466 DATA"STONE, AND ENORMOUS BOULDERS LYING MANY 

468 DATA"HUNDREDS OF FEET BELOW YOU. DOWN BELOW, 

469 DATA"H1DDEN BY MIST, MYSTERIOUS GURGLING N 
OISES CAN BE HEARD.# 

470 DATA"*7YOU ARE IN A VAST CAVE. TO THE SOUTH A 

471 DATA "NARROW HOLE LEADS OFF, TO THE EAST YOU 

472 DATA"CAN MAKE OUT A RAPIDLY NARROWING TRACK, 

474 DATA"BUT TO THE NORTH, SOME 100 FEET AWAY, 

475 DATA "YOU CAN MAKE OUT A WINDOW INTO ANOTHER 

476 DATA"ROOM. A SHADOWY FIGURE CAN BE SEEN 

477 DATA"THERE, PEERING BACK AT YOU. BETWEEN 
47B DATA"YOU AND IT IS A VAST CHASM DROPPING OUT 

479 DATA"OF SIGHT TO THE FLOOR MANY HUNDREDS OF F 
EET BELOW.# 

480 DATA"*8YOU ARE IN A LOW, NARROW TUNNEL.# 

490 DATA"*9Y0U ARE IN A SMALL HOLE OF A TUNNEL. TO 

491 DATA"THE NORTH LIES THE VAST CAVE, BUT THE 

492 DATA "ONLY OTHER PATH OUT, TO THE EAST, LEADS 

493 DATA"MERELY TO A NARROW, TWISTING TUNNEL.#~ 

500 DATA-1 

READY. 

100 DATA11 

102 DATA"*0YOU ARE IN A LOW TUNNEL. MERE AND THER 
E 

103 DATA"THE ROCK SHOWS SIGNS OF BEING PROPPED 

104 DATA"UP, AS IF IT MAY HAVE FALLEN DOWN IN 
106 DATA"YEARS GONE BY.# 

110 DATA"*1Y0U ARE TO THE EAST OF THE GIANT ROOM. 

111 DATA"4 NARROW TUNNEL HEADS SOUTH,AND A GROOVE 

112 DATA"DOWN THE MIDDLE OF THE TUNNEL SUGGESTS 

113 DATA"THAT AN ANCIENT STREAM ONCE RAN THIS 

114 DATA”WAY. TO THE EAST THERE SEEMS TO BE A 

115 DATA"BEWILDERING ARRAY OF CAVES AND TUNNELS. 

116 DATA"STALACTITES AND STALAGMITES ARE ALL 

117 DAT A"AROUND, AND ALTHOUGH THE INITIAL OPENING 

118 DATA"IS QUITE LARGE, YOU SOON LOSE TRACK OF 

119 DATA"THE CAVES AND PATHS IN THE GLOOM BEYOND.# 
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120 DATA"*2Y0U ARE LOST IN A BEWILDERING ARRAY OF 
TWISTING, TURNING TUNNELS.# 

130 DATA"*3Y0U ARE LOST IN A BEWILDERING ARRAY OF 
TWISTING, TURNING TUNNELS.# 

140 DATA"*4YQU ARE LOST IN A BEWILDERING ARRAY OF 
TWISTING, TURNING TUNNELS.# 

150 DATA"*5YQU ARE LOST IN A BEWILDERING ARRAY OF 
TWISTING, TURNING TUNNELS.# 

160 DATA"*6YOU ARE LOST IN A BEWILDERING ARRAY OF 
TWISTING, TURNING TUNNELS.# 

170 DATA"*7Y0U ARE LOST IN A BEWILDERING ARRAY OF 
TURNING, TWISTING TUNNELS.# 

ISO DATA"*SYOU ARE LOST IN A BEWILDERING ARRAY OF 
TURNING, TWISTING TUNNELS.# 

190 DATA“*9Y0U ARE LOST IN A BEWILDERING ARRAY OF 
TURNING, TWISTING TUNNELS.#~ 

200 DATA12 

202 DATA"*0YOU ARE LOST IN A BEWILDERING ARRAY OF 
TURNING, TWISTING TUNNELS.# 

210 DATA"*1Y0U ARE LOST IN A BEWILDERING ARRAY OF 
TURNING, TWISTING TUNNELS.# 

220 DATA"*2C0NGRATULATIONS! YOU ARE AT THE CENTRE 

221 DATA"OF THE TWISTING, TURNING TUNNELS.# 

230 DATA"*37HE PATH SOUTH HEADS DOWN, TOWARDS AN 

231 DATA"OLD RUSTY DOOR PROBABLY USED TO CONTROL 

232 DATA"THE FLOW OF WATER YEARS AGO. WORTH LIEST 
HE GIANT ROOM.# 

240 DATA"*4THE GROOVE IN THE TUNNEL FLOOR IS QUITE 

241 DATA"WIDE HERE, WIDE ENOUGH TO WALK DOWN. SET 

242 DATA"INTO THE GROOVE IS AN OLD RUSTY DOOR.# 

250 DATA"*5Y0U ARE TO THE SOUTH OF THE RUSTY DOOR. 

251 DATA"THE GROOVE IN THE FLOOR IS QUITE NARROW 

252 DATA"HERE, BUT THE TUNNEL ITSELF IS QUITE B 
IG.# 

260 DATA"*6Y0U STEP INTO THE HARD ROOM. SOLID 

261 DATA"WALLS OF ROCK ARE ON EITHER SIDE OF YOU, 

262 DATA"A HARD ROCK CARPET COVERS THE FLOOR, AND 

263 DATA"ROCK IS EVERYWHERE. YOU CAN 60 EITHER N 
ORTH OR WEST.# 

270 DATA"*7T0 THE SOUTH A VERY SMALL HOLE LOOKS OU 
T 

271 DATA"ONTO AN ENORMOUS CANYON. A GLOWING 

272 DATA"LIGHT SEEMS TO FILL THE SPACE BEYOND, 

273 DATA"AND LOOKING DOWN YOU CAN SEE THAT THE 

274 DATA"GLOW COMES FROM A VAST VOLCANO, ALMOST 

275 DATA"EXTINCT, BUT STILL SHINING WITH A RED 

276 DATA"HEAT. A LOW TRACK HEADS WEST.# 

280 DATA"*8YOU ARE IN FRONT OF AN EXTREMELY HIGH 

281 DATA"WALL OF SOLID ROCK. THE ROCK IS SO 

282 DATA"SMOOTH THAT YOU CAN SEE NO FOOT OR HAND- 

283 DATA"HOLDS AT ALL. LOOKING UP REVEALS 
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284 DATA"NOTHING, ALTHOUGH THERE IS THE MEREST 

285 DATA“SUGGESTION OF A LEDGE BEYOND THE WALL. 

286 DATA" "sDATA"JOHN RYAN THINKS THAT IF YOU JUMP 
HIGH 

287 DATA"ENOUGH YOU'LL BE ABLE TO MAKE IT.":DATA" 
":DATA"WI JOHN!# 

290 DATA"*970 THE EAST LIES A HIGH LEDGE, WHILE TO 

291 DATA"NORTH, SOUTH AND WEST SMALL, ROUND 

292 DATA“PASSAGES HEAD OFF. 7HE ONE TO THE WEST 

293 DATA"SEEMS MURKIER THAN THE OTHERS.# A 
300 DATA-1 

READY. 


100 DATA13 

102 DATA"*0YOU ARE IN A SMALL, ROUND PASSAGE, 

104 DATA"WHICH SLOPES ROUND A TIGHT BEND. 7HERE 
106 DATA"IS A VERY DARK AREA TO THE SOUTH-WEST.# 
110 DATA"*1Y0U ARE IN A SMALL, ROUND PASSAGE, 

112 DATA"WHICH TWISTS AND TURNS TO AVOID THE DARKA 
REA.# 

120 DATA"*2Y0U ARE IN A VERY DARK CORRIDOR. 7HE 
122 DATA"WALLS ARE BLACKER THAN BLACK, AND THE 
124 DATA"SURROUNDING TUNNELS SEEM QUITE BRIGHT IN 

126 DATA"COMPARISON.":DATA.. OVERHEAD TH 

ERE IS A TINY PIN-PRICK 

127 DATA"OF LIGHT, PERHAPS THE OUTSIDE WORLD? 

128 DAT A"WHATEVER IT IS, YOU CAN'T REACH IT.# 

130 DATA“*3Y0U HAVE STUMBLED ONTO THE VERY EDGE OF 

131 DATA"A VAST PRECIPICE, MUCH TOO DEEP TO 

132 DATA"SCRAMBLE DOWN. 70 THE NORTH YOU CAN SEE 

133 DATA“TOWERING ROCK FISSURES, PINNACLES OF 

134 DATA"STONE, AND ENORMOUS BOULDERS LYING MANY 

135 DATA“FEET BELOW YOU. DOWN BELOW, HIDDEN BY 

136 DATA"MIST, MYSTERIOUS GURGLING NOISES CAN BE 

137 DATA“HEARD. FAR AWAY YOU CAN MAKE OUT THE 

138 DATA"OPENING TO WHAT APPEARS TO BE AN E 

NORMOUS CAVE.# 

140 DATA"*4YOU ARE IN A TINY CORRIDOR, WITH PATHS 
TO NORTH AND EAST.# 

150 DAT A"*5YOU'RE ON A GENTLY SLOPING WEST-EAST 
152 DATA“PASSAGE, FILLED WITH BOULDERS.# 

160 DATA"*6YOU ARE IN AN ODDLY-SHAPED ROOM, WITH 
162 DATA“LARGE BOULDERS SCATTERED ABOUT. ON THE 
164 DATA“WALL TO THE NORTH ARE CARVED THE WORDS 

166 DATA" FEE FIE FOE FUH '. 7HE CARVING HAS BEEN 

167 DATA"MADE BY AN UNSTEADY HAND, AND GOES QUITED 
EEP. # 

170 DATA"*7YOU ARE IN A LARGE OPEN SPACE, WITH 

171 DATA"CAVERNOUS PASSAGES LEADING OFF EVERY- 

172 DATA"WHERE.# 


233 



180 DATA"*8/011 ARE IN A HI6H ROOM. THE MALLS ARE 
182 DATA"BENTLY WARM TO THE TOUCH, AND IN THE 
184 DATA"DISTANCE YOU CAN HEAR A DULL RUMBLING S 
OUND.# 

190 DATA"*9Y0U ARE IN A HIGH ROOM, WHICH IS EVEN 

191 DATA“HIGHER TO THE SOUTH. IN THE DISTANCE 

192 DATA"YOU CAN HEAR A DULL RUMBLING SOUND.#'" 

200 DATA14 

202 DATA"*OTHE WALLS ARE QUITE WARM HERE. A STEAD 
Y 

204 DATA"ROAR COMES FROM THE NORTH-WEST, SHAKING 
206 DATA"THE WALLS. A PATH HEADS SOUTH, AND A L 
OW CRAWL HEADS WEST.# 

210 DATA"*1THE WALLS ARE QUITE COOL TO THE TOUCH, 
212 DATA"AND YOU CAN REST AGAINST THEM FOR A 
214 DATA"LITTLE WHILE. PATHS LEAD IN ALL D 

IRECTIONS.# 

220 DATA"*2THE DULL RUMBLING SOUND PERSISTS. THE 
222 DATA"AIR IS QUITE CLEAR HERE, AND YOU CAN 
224 DATA"MAKE OUT PATHS TO NORTH, WEST AND EAST.# 
230 DATA"*34 MYSTERIOUS PATH HEADS WEST, WHILE TO 
232 DATA"NORTH AND EAST ARE REGULAR CRAWLS. A 
234 DATA"STEADY STREAM OF MIST IS COMING OUT OF 
236 DATA“THE TUNNEL TO THE WEST, MAKING IT 
238 DATA"DIFFICULT TO SEE INTO, ALTHOUGH IT SEEMST 
0 BE QUITE HIGH.# 

240 DATA"*4THE WALLS ARE WARM TO THE TOUCH, AND 
242 DATA"FROM THE NORTH THERE IS A STEADY ROAR OF 
244 DATA"NOISE.# 

250 DATA"*5Y0U ARE IN A SMALL CHAMBER FILLED WITH 
252 DATA"BOULDERS. THE WALLS ARE NOW VERY WARM 
254 DATA"INDEED, AND THE AIR IS STIFLING.# 

260 DATA"*6Y0U ARE ON THE EDGE OF A BREATHTAKING 

261 DATA"VIEW. FAR BELOW AN ACTIVE VOLCANO 

262 DATA"THUNDERS OUT MOLTEN LAVA WHICH CRASHES 

263 DATA"INTO THE DEPTHS. TO ONE SIDE LIES A 

264 DATA"VAST GORGE, FILLED WITH A BIZARRE CHAOS 

265 DATA"OF TORTURED ROCK. TO THE RIGHT AN 

266 DATA"IMMENSE GEYSER OF BLISTERING STEAM 

267 DATA"ERUPTS CONTINUOUSLY. A RATHER WARM 

268 DATA"PASSAGE EXITS TO THE SOUTH, WHILE TO THE 

269 DATA“WEST A CRUMBLING TRACK OF ROCK LEADS A 
ROUND THE VOLCANO.# 

270 DATA"*7Y0U ARE ON THE WESTERN RIM OF THE 
272 DATA"VOLCANO.# 

280 DATA"*8Y0U ARE TO THE WEST OF A LOW TUNNEL, 

282 DATA"FILLED WITH MYSTERIOUS SWIRLING MIST. 

284 DAT A"ALTHOUGH YOU CAN'T SEE INTO THE TUNNEL 
286 DATA"PROPERLY, IT APPEARS TO BE LOW AND DARK.# 

290 DATA"*94 GHOSTLY SPECTRE SWATHED IN MIST 

291 DATA"BLOCKS YOUR PATH AND YOU CAN GO NO 
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292 DATA"FURTHER. A MISTY HAND REACHES OUT OF 
294 DATA"THE DARKNESS AND COMES TOWARDS YOU . ..# A 
300 DATA-1 

READY. 

100 DATA15 

102 DATA"#01.OW, RAMBLING CRAWLS LEAD NORTH AND 
104 DATA"WEST, AND THE GHOSTLY SPECTRE OF THE 
106 DATA"MISTS LIES BEHIND YOU. I WOULDN'T TRY 
106 DATA"60ING BACK IF I WERE YOU.# 

110 DATA"*1Y0U ARE IN A DIRTY CHAMBER, WITH GREAT 
112 DATA"CRACKS IN THE FLOOR AND WALLS.# 

120 DATA"*2Y0U ARE IN A LOW, ROUND CHAMBER. LITTL 
E 

122 DATA "TRACES OF MIST REMIND YOU OF YOUR 
124 DATA"GHOSTLY ENCOUNTER.# 

130 DATA"*3YOUR FEET ARE STICKING IN MUD OOZING 
132 DATA"OUT FROM THE GROUND BELOW. PERHAPS IT'S 
134 DATA"LAVA FROM THE VOLCANO WHICH HAS SOMEHOW 
136 DATA"CREPT THROUGH THE ROCKS? WHATEVER IT 
138 DATA"IS, IT MAKES MOVEMENT DIFFICULT. PATHS H 
EAD SOUTH, WEST AND EAST.#" 

140 DATA"*47HE MUD IS QUITE THICK HERE, AND YOU CA 
N 

142 DATA"ONLY HEAD WEST OR EAST. PROGRESS IS V 
ERY SLOW.# 

150 DATA"*5MJD COMES OUT OF THE WALLS AND THROUGH 
152 DATA"THE FLOOR AND CEILING, COVERING YOU IN A 
154 DATA"DISGUSTING SLIMY COATING. IT'S QUITE 
156 DATA"HARD TO BREATHE NOW, AND THE LIGHT FROM 

158 DATA"YOUR TORCH DOESN'T LOOK AS IF IT WILL 

159 DATA"HOLD OUT FOR MUCH LONGER.# 

160 DATA"*6YOU ARE AT THE END OF THE TUNNEL OF 
162 DATA"MUD. PATHS LEAD SOUTH AND EAST, BACK I 
NTO THE MUD AGAIN.# 

170 DATA"*770 THE NORTH LIES THE MUD, BUT TO THE 
172 DATA"SOUTH A MAGNIFICENT CAVERN CAN BE SEEN 
174 DATA"OPENING UP.# 

180 DATA"*BYOU ARE IN A MAGNIFICENT CAVERN. THE 
182 DATA"WALLS SHINE WITH A MAGICAL GLOW, AND ALL 
184 DATA"AROUND SHADOWS DANCE AND FLICKER IN THE 

186 DATA"LIGHT OF YOUR TORCH. STALACTITES HANG 

187 DATA"DOWN FROM THE CEILING, DRIP-DRIP-DRIP, 

188 DATA"AND AT YOUR FEET ARE SEVERAL LUMINOUS C 
OINS.# 

190 DATA"#9YOU ARE IN A SOUTH-SIDE CHAMBER, AWAY 
192 DATA"FROM THE MAGICAL CAVERN. A ROUGH TRACK 
194 DATA"GOES OFF TO THE SOUTH, AND THE TWISTS 
196 DATA”AND TURNS IN THE ROCKS ARE ONLY TOO 0 
BVIQUS.#'"' 
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200 DATA16 

202 DATA"*0THE PATH TURNS TO HEAD EITHER NORTH OR 

203 DATA"EAST. A DEEP VOICE REVERBERATES THROUGH 

204 DATA"THE CAVES AND SAYS: 'YOU HAVE NOH GOT 

205 DATA“70 GET THROUGH THE PATH OF HISTS'. 

206 DATA"THE PATH EAST LOOKS COVERED IN MIST. 

207 DATA"THERE ARE POTHOLES ALL OVER THE PLACE, 

208 DATA"AND YOU CAN ONLY DIMLY MAKE OUT WHERE 

209 DATA"YOU ARE GOING. THE GROUND BENEATH TURNST 
0 A MARSHY BOG AS YOU WALK.# 

210 DATA"*1Y0U ARE ON THE PATH OF MISTS. THE CAVE 
GODS WATCH OVER YOU.# 

220 DATA"*2Y0U ARE ON THE PATH OF MISTS. THE CAVE 
GODS WATCH OVER YOU.# 

230 DATA"*3YOU ARE ON THE PATH OF MISTS. THE CAVE 
GODS WATCH OVER YOU.# 

240 DATA"*4YOU ARE ON THE PATH OF MISTS. THE CAVE 
GODS WATCH OVER YOU.# 

250 DATA"*5THE GROUND IS SUDDENLY HARD AGAIN, BUT 
252 DATA"THE TRACK TO THE EAST IS STILL VERY 

254 DATA"MISTY. A FAMILIAR HAZY SPECTRE EMERGES 

255 DATA"FROM THE GLOOM, MOANING AND GROANING, 

256 DATA"FEELING HIS WAY TOWARDS YOU. A GHASTLY 

257 DATA"HAND, DRIPPING WITH MUD AND SLIME, 

258 DATA"STRETCHES OUT OF THE MIST AND REACHES F 
ORWARD •••# 

260 DATA"*6Y0U ARE IN A VERY HIGH ROOM. THE CEIL- 
262 DATA"ING IS SO HIGH THAT NOT EVEN THE LIGHT 
264 DATA"OF YOUR TORCH CAN PENETRATE THE GLOOM. 

266 DATA"* WIDE TRACK LEADS SOUTH.# 

270 DAT A"*7STENCH AND FILTH FILL THE AIR, MAKING I 
T 

272 DATA"HARD TO BREATHE. MYSTERIOUS. SHADOWY 
274 DATA"FIGURES STALK THE LAND, AND EYES PEER AT 
276 DATA"YOU FROM ALL SIDES. DEEP, DANK PATHS 
278 DATA"LEAD OFF TO NORTH AND SOUTH.# 

280 DATA"*8Y0U ARE ON A WIDE, CAVERNOUS PATH, 

282 DATA"LEADING ROUGHLY NORTH-SOUTH.# 

290 DATA"*9THE PATH NARROWS, A TREACHEROUS STRETCH 

291 DATA"OF ROCK AND RUBBLE NOW, WITH A VAST 

292 DATA"DROP TO WEST AND EAST INTO A POOL OF 

293 DATA"MURKY, STAGNANT WATER.# A 
300 DATA17 

302 DATA"*OYOU ARE ON A WIDE PATH. FLEETING 

303 DATA"SHADOWS BRUSH BY YOUR FACE, HANDS APPEAR 

304 DATA "TO REACH OUT OF THE GLOOM AND CLUTCH AT 

305 DATA"YOU, THE VERY AIR ITSELF IS FULL OF 

306 DATA"DANGER. YOU CAN MAKE OUT A NARROW TRACK 

307 DATA"HEADING NORTH, A LOW, THREATENING HOLE 

308 DATA"LEADING EAST, AND A NARROW ARCH OF ROCK 

309 DATA"TO THE SOUTH.# 
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310 DATA"*1VOU ARE IN A LOW, ROUND, TUNNEL OF ROCK 

.# 

320 DATA“*2DEAD END.# 

330 DATA"*3Y0U ARE UNDERNEATH A HIGH ARCH OF ROCK. 
# 

340 DATA"*4YOU ARE TO THE SOUTH OF THE ARCHWAY. 

342 DATA "A DECENT TRACK LIES TO THE SOUTH, BUT 
344 DATA"THE WAY BEYOND IS LOST IN SHINING LIGHTS 
346 DATA"AND DAZZLING LUMINANT ROCKS.# 

350 DATA"*5YOU ARE AT A DOORWAY INTO A MAGICAL, 

352 DATA"MYSTICAL LAND, OF UNDERGROUND PLANTS AND 

354 DATA"FLOWERS, TOWERING ROCKS AND TINY HOLES 

355 DATA"IN THE GROUND. WATERFALLS WILL FLOW, 

356 DATA"CASCADING TO THE GROUND, UNDERGROUND 

357 DATA"STREAMS AND RIVERS WILL BLOCK THE WAY, 

358 DATA"CREATURES OF THE CAVES WILL EMERGE, AND 

35V DATfl"REALLY, JUST ABOUT ANYTHING MIGHT H 

APPEN.# 

360 DATA"*6YOU ARE IN THE MAGICAL, MYSTICAL, LAND, 
362 DATA"WHERE SHADOWS DANCE, ROCKS FALL, AND 
364 DATA"WATER FLOWS.# 

370 DATA"*7YOU ARE UNDERNEATH A GIANT WATERFALL, 
372 DATA"WHICH CASCADES OUT OF SIGHT TO THE 

374 DATA"GROUND MANY HUNDREDS OF FEET BELOW. A 

375 DATA"VERITABLE PINNACLE OF ROCK THIS, THE 

376 DATA"ONLY SAFE PATHS YOU CAN TAKE ARE TO WESTA 
ND SOUTH.# 

380 DATA"*8YOU ARE IN THE MAGICAL, MYSTICAL, LAND, 
382 DATA"WHERE SHADOWS DANCE, ROCKS FALL, AND 
384 DATA"WATER FLOWS.# 

390 DATA"*9YOU ARE ON A ROCKY OUTPOST. SAFE PATHS 

391 DATA"LEAD EAST AND SOUTH, BUT TO THE WEST, 

392 DATA"ACROSS A GAP IN THE ROCKS SO VAST THAT 

393 DATA"NOT EVEN A GIANT COULD JUMP ACROSS, YOU 

394 DATA"CAN GLIMPSE INTO A SECRET, SHADOWY CAVE. 

395 DATA"THEREIN LIES THE SECRET OF THE CAVES, 

396 DATA"BUT THE PATH YOU HAVE TO FOLLOW IS LONG A 
ND TREACHEROUS.#^ 

400 DATA-1 

READY. 

100 DATA18 

102 DATA"*07HIS MAGICAL, MYSTERY LAND SURE IS 
LARGE, ISN'T IT?#" 

110 DATA"*1YOU ARE NEAR THE CENTRE OF THE LAND.# 
120 DATA"*2YQU ARE AT THE CENTRE OF THE MAGICAL 
122 DAT A"MYSTERY LAND. PATHS LEAD OFF IN MANY 
124 DATA"DIRECTIONS, BUT J DON'T SUPPOSE THAT ANY 
126 DATA"OF THEM WILL GO IN THE DIRECTION THAT Y 
OU EXPECT.# 
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130 DATA"*3Y0U ARE NEAR THE CENTRE OF THE LAND.# 
140 DATA"*4THIS MAGICAL, MYSTERY LAND SURE IS 
LARGE, ISN'T IT?#" 

150 DATA“*5Y0U ARE AT THE SOUTH-WEST CORNER OF THE 
152 DATA"LAND. XT YOUR FEET, IN A LITTLE TRENCH, 
154 DATA"YOU CAN SEE HUNDREDS UPON HUNDREDS OF 

156 DATA"TINY BLUE ROCK PLANTS, WHILE THE WALLS 

157 DATA"AROUND YOU ARE COVERED IN A DEEP BLUE 

158 DATA"MQSS, SOFT TO THE TOUCH.# 

160 DATA"*6THIS LAND GOES ON FOREVER.# 

170 DATA"*7Y0U ARE NEAR THE CENTRE OF THE MAGICAL, 
MYSTICAL LAND.# 

180 DATA"*8YOU ARE IN A LARGE, OPEN ROOM, IN 
182 DATA"MAGICAL, MYSTICAL LAND. STRANGE LITTLE 

184 DATA"BLUE ROCK CREATURES SCUTTLE ABOUT AT 

185 DATA"YOUR FEET, IMPEDING YOUR PROGRESS AND 

186 DATA"MAKING LITTLE CHIRRUPING NOISES AS THEY 

187 DATA"DO SO. THEY MOVE TOO QUICKLY TO CATCH, 

188 DATA"AND VANISH INTO THE TINIEST OF CRACKS ASY 
OU TRY TO GRAB THEM.# 

190 DATA"*9Y0U ARE IN THE SOUTH-EAST CORNER OF THE 

191 DAT A"MAGICAL, MYSTICAL LAND. THERE IS AN 

192 DATA"EXTREMELY DEEP DROP TO A LEDGE, SOME 20 

193 DATA"OR SO FEET BELOW YOU, AND YOU CAN SEE 

194 DATA"THAT FROM THE LEDGE A DARK PATH GOES OFF 

195 DATA"TO THE SOUTH. THERE IS A SMELL OF SALT 

196 DATA"WATER IN THE AIR, ALTHOUGH THERE IS NO 

197 DAT A"APPARENT SIGHT OF WATER."sDATA" " 

198 DATA"YOU COULD TRY JUMPING DOWN ONTO THE 

199 DATA"LEDGE, BUT YOU'D PROBABLY JUST BREAK A L 
EG OR SOMETHING.# A 

200 DATA19 

202 DATA"*OYOU ARE ON THE DEEP LEDGE. THE PATH 
204 DATA"CONTINUES SOME 20 FEET ABOVE YOU, WHILE 
206 DATA "TO THE SOUTH YOU CAN SEE A DARK TUNNEL 
208 DATA"BUILT INTO THE ROCK.# 

210 DATA"*1Y0U ARE IN A LONG, LOW, DARK TUNNEL. T 
0 

212 DATA"THE EAST THERE IS A GARISH LIGHT, AND 
214 DATA"A FEW WOODEN TABLES AND CHAIRS CAN BE 
216 DATA"MADE OUT.# 

220 DATA"*2YOU ARE IN AN UNDERGROUND BAR, SEEMINGL 

Y 

222 DAT A"DESERTED. EMPTY WOODEN TABLES AND 
224 DATA"CHAIRS LIE ABOUT THE PLACE, A FEW MUGS 

226 DATA"WITH LONG DEAD DRINKS LURK IN THE 

227 DAT A"CORNERS OF THE BAR, AND IT LOOKS LIKE 

228 DATA"THE DRINKING EQUIVALENT OF THE MARIE C 
ELESTE.# 

230 DATA"*3Y0U ARE NOW BEHIND THE UNDERGROUND BAR. 
232 DATA"X LONG, STRAIGHT TUNNEL HEADS OFF TO THE 
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234 DATA"NORTH, WHILE TO THE EAST A SHIMMERING 

235 DATA"HAZE OBSCURES MOST OF THE VIEW. THE 

236 DATA"AIR NOW SMELLS QUITE STRONGLY OF SEA 

237 DATA"WATER, AND YOU CAN HEAR THE CRIES OF 

238 DATA"LARGE WATER-BIRDS AS THEY SWOOP AND 

239 DATA"DIVE. AT LEAST, YOU HOPE THAT THEY'RE W 
ATER BIRDS.# 

240 DATA"*4Y0U ARE IN A STRAIGHT TUNNEL HEADING 
242 DAT A"ROUGHLY NORTH-SOUTH. THE WALLS ARE 
244 DATA“QUITE JAGGED, AND THE PATH APPEARS TO 
246 DATA"STEEPEN SLIGHTLY TO THE NORTH.# 

250 DATA"*5Y0U ARE IN A LOW CRAWL OVER COBBLES AND 
252 DATA"DEBRIS, BETTING STEEPER TO THE NORTH.# 

260 DATA"*6THE CEILING IS NOW QUITE HIGH, AND IT 

262 DATA"LOOKS AS IF THE END OF THE WORLD LIES TO 

263 DATA"THE NORTH. IN THE DIM LIGHT YOU CAN'T 

264 DATA"MAKE OUT ANYTHING OTHER THAN A VAST E 
MPTY SPACE.# 

270 DATA"*7YOU ARE LOOKING DOWN INTO AN ENORMOUS 
272 DATA"CANYON THAT HOUSES AN ALMOST-EXTINCT 
274 DATA"VOLCANO. THE VOLCANO STILL GLOWS WITH 

276 DATA"A LOW RED HEAT, AND BEYOND IT YOU CAN 

277 DATA"MAKE OUT A LITTLE HOLE IN THE ROCK 

278 DATA"FACE EXACTLY OPPOSITE YOU AND MANY, MANY 

279 DATA"FEET AWAY. THE ONLY EXIT IS BACK TO THES 
OUTH.# 

280 DAT A“*8YOU'RE IN A COLD ROOM. THE AIR IS FRES 
H 

281 DATA"AND CRISP HERE, AND YOU CAN SCARCELY 

282 DATA"BEAR TO TOUCH THE WALLS, SO COLD ARE 

283 DATA"THEY. CARVED INTO THE WALLS IS AN ICY 

284 DATA"MESSAGE, WHICH READS ' YHE '.# 

290 DATA"*9THE WALLS ARE COLD TO THE TOUCH, AND YO 
U 

291 DATA"SHIVER SLIGHTLY AS YOU WALK ALONG THIS 

292 DATA"ICE-WHITE CORRIDOR.# A 
300 DATA-1 

READY. 


100 DATA20 

102 DAT A"*OTHERE IS A WHITE SHEEN TO THE WALLS OF 
104 DATA"THIS LOW, ROUND CORRIDOR. THE AIR IS 
106 DATA"FRESH, AND PLEASANT TO BREATHE, ALBEIT A 
lOB DATA"LITTLE CHILL.# 

110 DATA"*1THE SMELL OF SALTY SEA WATER FILLS THE 
112 DATA"AIR, AND YOU CAN HEAR THE LAPPING OF 
114 DATA"WAVES ON A DISTANT SHORE. THE CAVE 

116 DATA"OPENS UP TO THE EAST, WHILE THE PATH 

117 DATA"BACK LEADS ONLY TO THE BAR. TO THE NORTH 

118 DATA"IS A CURIOUS ROUND HOLE.# 


239 



120 DATA"*27HE ROUTE NORTH IS BLOCKED BY A HUGE, 
122 DATA"TOMERING CLIFF FACE, POCK-MARKED WITH 

124 DATA"LEDGES ON WHICH BIRDS RAISE THEIR YOUNG, 

125 DATA"FAR OUT OF YOUR REACH. THE ONLY PATH 

126 DATA"OUT IS BACK TO THE SOUTH, AS EAST WILL 

127 DATA"ONLY TAKE YOU TO A 50 FOOT DROP INTO THEW 
ATER.# 

130 DATA"*3Y0U ARE ON QUITE A HIGH LEDGE OVER- 
132 DATA"LOOKING THE LAKE, BUT STILL YOU CANNOT 
134 DATA"SEE TO THE OTHER SIDE. THE PATH 
136 DATA"CONTINUES TO THE NORTH.# 

140 DATA"*4Y0U ARE ON A LOW LEDGE, WITH THE LAKE 
142 DATA"TO THE EAST AND A SHINGLE PATH TO THE 
144 DATA"NORTH.# 

150 DATA"*5Y0U ARE ON THE SHORE OF AN ENORMOUS 

151 DATA"UNDERGROUND LAKE, SO VAST THAT YOU 

152 DATA"CANNOT SEE TO THE OTHER SIDE. FAR OVER- 

153 DATA"HEAD THE CEILING OF THE CAVE ALMOST 

154 DATA"DISAPPEARS FROM VIEW. NAVES LAP GENTLY 

155 DATA“ON THE SHINGLY SHORE, AND BIRDS SWOOP 

156 DATA"AND DIVE IN SEARCH OF FOOD. THE SURFACE 

157 DATA"OF THE LAKE IS QUITE SMOOTH, BUT WHO 

158 DATA"KNOWS WHAT UNSEEN MONSTERS LURK IN THE 

159 DATA "DEPTHS?": DATA" "'.DATA "4 SHINGLE PATH HEAD 
S NORTH AROUND THE LAKE.# 

160 DATA"*6Y0U ARE ON THE SURFACE OF THE LAKE,WITH 
162 DATA"A SIGHT OF LAND TO THE WEST. IN ALL 

164 DATA"OTHER DIRECTIONS THERE IS NOTHING BUT 
166 DATA“A VAST EXPANSE OF WATER.# 

170 DATA"*7YOU ARE ON THE SURFACE OF THE LAKE,WITH 
172 DATA"A SIGHT OF LAND TO THE NORTH. IN ALL 
174 DATA"OTHER DIRECTIONS THERE IS NOTHING BUT A 
176 DATA"VAST EXPANSE OF WATER.# 
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230 DATA"*3YOU ARE STILL ON THE SURFACE OF THE 
232 DATA"LAKE, AND TO YOUR JOY YOU CAN MAKE OUT A 

234 DATA"SIGHT OF LAND ON THE DISTANT HORIZON. 

235 DATA"ROCKY CRAGS SEEM TO LEAP OUT OF THE 

236 DATA"WATER, BUT SO CONFUSED IS YOUR SENSE OF 

237 DATA"DIRECTION THAT YOU NO LONGER KNOW WHICH 

238 DATA"ROUTE TO TAKE. IS IT THE SHORE YOU 

240 



239 DATA"LEFT, OR IS IT THE OTHER SIDE OF THIS I 
MMENSE STRETCH OF WATER?# 

240 DATA"*4Y0U ARE ON THE SURFACE OF THE LAKE,WITH 

241 DATA"A SIGHT OF LAND TO THE SOUTH. IN ALL 

242 DATA"OTHER DIRECTIONS THERE IS NOTHING BUT A 
244 DATA"VAST EXPANSE OF WATER.# 

250 DATA"*5Y0U ARE ON THE SOUTHERN SHORE OF THE 
252 DATA"LAKE. TO THE SOUTH IS A HIGH ROCK WALL, 

254 DATA "DOTTED WITH PITS AND CREVICES, BUT SINCE 

255 DATA"YOU CAN'T SEE TO THE TOP IT COULD BE A 

256 DATA"BAD MOVE TO ATTEMPT TO CLIMB IT. STILL, 

257 DATA"THERE'S NOT MUCH ELSE TO DO. EVERYWHERE 

258 DATA"ELSE YOU LOOK YOU CAN ONLY SEE WATER.# 

260 DATA"*6YOU ARE ON TOP OF THE LEDGE, A LARGE 

262 DATA"PLATEAU OVERLOOKING THE LAKE TO THE 

263 DATA"NORTH. THERE ARE A NUMBER OF CRUMBLY 

264 DATA "PATHS LEADING OFF, BUT THE ONLY SAFE ONE 

265 DATA"IS TO THE WEST, WHERE YOU CAN SEE A 

266 DATA"PROMISING TRACK LEADING TO A CAVE 

267 DATA"WITHIN A CAVE.# 

270 DATA"#7YOU ARE IN A SMALL, DARK CAVE HEADING 
272 DATA"ROUGHLY EAST-WEST.# 

2B0 DATA"*BYOU ARE STUMBLING OVER ROCKY GROUND, 

282 DATA"STILL HEADING EAST-WEST.# 

290 DATA"*9Y0U ARE AT THE END OF A SMALL CAVE. 

292 DATA"THE TRACK HEADS EAST-WEST, AND TO THE 
294 DATA"WEST YOU CAN SEE A CURIOUS STRUCTURE 
296 DATA "CARVED OUT OF THE ROCK FACE.#'' 

300 DAT A-1 

READY. 


100 DATA22 

102 DATA"*OYOU CAN ONLY GO EAST OR WEST HERE. A 

103 DATA"NARROW PATH LEADS TO THE EAST, AND WEST 

104 DATA"LIES A CURIOUS SELECTION OF WELL-TRODDEN 

105 DATA"PATHS. IT WOULD APPEAR THAT SOMEONE 

106 DATA"HAS PLANTED AN UNDERGROUND GARDEN, BUT 

107 DATA"ELECTED TO USE ASTROTURF INSTEAD OF 

108 DATA"GRASS. DO YOU PREFER GRASS OR ASTROTURF? 

109 DATA"PERSONALLY 1 DON'T KNOW, NEVER HAVING 

110 DATA"SMOKED ASTROTURF, BUT YOU CAN FIND OUT 

111 DATA"BY GOING WEST."a DATA.DATA"CARVED INTO 

THE ROCK TO YOUR RIGHT IS AN 

112 DATA"INTERESTINGLY FAMILIAR FACE. LOOKING 

113 DATA"A BIT LIKE TONY BRIDGES, EVERYTIME YOU 

114 DATA"MOVE TOWARDS IT A HAND STRETCHES OUT OF 

115 DATA"THE ROCK AND A HOLLOW VOICE REMINDS YOU 

116 DATA"THAT YOU HAVE NOT PAID YOUR SUBSCRIPTION 

117 DATA"TO POPULAR COMPUTING WEEKLY.# 

118 DATA"*1Y0U ARE WALKING ON A SPRINGY SURFACE OF 
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119 DATA“ASTROTURF.# 

120 DATA"*2Y0U ARE IN A WELL-KEPT ARTIFICIAL 
122 DATA"GARDEN. PLANTS ARE GROWING IN 

124 DATA"ABUNDANCE, LIVING AT YOUR FEET. THE 

125 DATA"WALLS ARE QUITE HIGH HERE, AND THEY TOO 

126 DATA"SEEM COVERED IN SOME SORT OF MOSSY 

127 DATA"GROWTH. INSECTS FLIT AND BUZZ ABOUT, 

128 DATA"GENERALLY GETTING IN THE WAY.#" 

130 DATA"*3Y0U ARE WALKING ABOUT IN THE ASTROTURF 
GARDEN.# 

140 DATA"*4THE SMALL, WELL-TENDED GARDENS HERE- 
142 DATA"ABOUT WOULD INDICATE THAT SOMEONE HAS TO 
144 DATA"LOOK AFTER THEM. MEAT ROWS OF 4 BY 4 
146 DATA "BEDS OF PLANTS ARE ALL AROUND. TRY NOT T 
0 TREAD ON THEM.# 

150 DATA"*5WHAT A CURIOUS PLACE THIS IS. WATER 
152 DATA"DRIPS DOWN FROM THE CEILING, KEEPING 

154 DATA"EVERYTHING NICE AND DAMP, AND A SMALL 

155 DATA"POOL AT YOUR FEET HOUSES A COLLECTION OF 

156 DATA“HITHERTO UNKNOWN WATER CREATURES. THE 

157 DATA"WATER ITSELF FLOWS OUT OF THE POOL TO 

158 DATA "THE WEST, CASCADING OVER A ROCK FACE AND 

159 DATA"FALLING MANY HUNDREDS OF FEET TO THE 

160 DATA"BOTTOM OF A DEEP, DEEP PIT. 4CR0SS THE 

161 DATA"PIT AND ABOUT 20 FEET AWAY IS A DARK 

162 DATA"PATH WHICH HEADS NORTH-SOUTH, BUT IT 

163 DATA"LOOKS LIKE A MIGHTY BIG JUMP TO ME.# 

165 DATA"*6Y0U ARE STILL IN ASTROTURF LAND.# 

170 DATA"*7YOU ARE FLOATING OVER THE BOTTOMLESS 

PIT.# 

180 DATA"*8YOU ARE ON THE WEST SIDE OF THE PIT. 

182 DATA"DARK, NARROW PATHS HEAD NORTH AND SOUTH, 
184 DATA"ALTHOUGH THE SOUTHERN ONE LOOKS A BIT M 
ORE PROMISING.# 

190 DATA"*9Y0U SHOULD KNOW BETTER. DEAD END.#'' 

200 DATA23 

202 DATA"*OTHE CORRIDOR TO THE NORTH SEEMS DARK, 
204 DATA"AND LOOKS AS IF IT TURNS SHARPLY. 

206 DATA"BACK TO THE SOUTH IS THE BOTTOMLESS PIT,S 
0. WHAT TO DO?# 

210 DATA"*1TO YOUR WEST LIES A RICKETY OLD BRIDGE 

211 DATA"OVER A VERY DEEP DROP, COUPLED WITH A 

212 DAT A"STRANGE FEELING OF DEJA VU. SOUTH HEADS 
214 DATA"BACK TO THE OLD PIT AGAIN, AND ALL OTHER 
216 DATA"OPTIONS ARE CLOSED TO YOU BY THE 

218 DATA"SOLID WALL OF ROCK SURROUNDING YOU ON A 
LL OTHER SIDES.# 

220 DATA"*2YOU ARE IN FRONT OF A RICKETY BRIDGE 

221 DATA"HEADING WEST. THE STRANDS OF ROPE 

222 DAT A"HOLDING THE BRIDGE TO THE ROCK FACE LOOK 

223 DATA"OLD AND WITHERED, AND THE BATTERED 
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224 DATA"PIECES OF WOOD WHICH CONSTITUTE THE 

225 DATA"BRIDGE DO NOT INSPIRE CONFIDENCE. ONE 

226 DATA"FALSE MOVE AND ...# 

230 DATA"*3Y0U ARE ON THE WEST SIDE OF THE BRIDGE, 

231 DATA"AND STANDING ON THE FIRST OF NINE LEVELS 

232 DATA“OF ROCK FACE, WHICH HEAD UP AND DOWN IN 

233 DATA"THE MANNER OF AN ESCHER PAINTING. A 

234 DATA"DEEP AND RESONANT VOICE BOOMS OUT OF THE 

235 DATA"DARKNESS, AND TELLS YOU THAT ‘THE HOCKS 

236 DATA"#I/ST BE TRAVERSED IN ORDER'. ‘. WEAN OLD 

237 DATA"SOUL. THIS IS THE LORD OF THE CAVES, 

238 DATA"WHO WATCHES OVER YOUR EVERY STEP."»DATA" 

II 

239 DATA"OBVIOUS PATHS HEAD NORTH, EAST AND WEST.# 

240 DATA"*4YOU ARE ON THE THIRD LEVEL.# 

250 DATA"*5YOU ARE ON THE SECOND LEVEL.# 

260 DATA"*6YOU ARE ON THE FIFTH LEVEL. ALL WELL 
AND GOOD SO FAR.# 

270 DATA"*7Y0U ARE ON THE FOURTH LEVEL. I’D HEAD 
SOUTH IF I WERE YOU.# 

280 DATA"*8Y0U HAVE REACHED THE SIXTH LEVEL. DON' 
T 

281 DATA"WORRY, YOU WON'T HAVE TO RETREAT THROUGHT 
HIS AREA.# 

290 DATA"*9YOU ARE ON THE SEVENTH LEVEL. PATHS 

291 DATA"LEAD TO NORTH AND EAST, BUT I WOULDN'T 

292 DATA"TRY GOING EAST.# A 
300 DATA24 

302 DATA"*0YOU ARE ON LEVEL EIGHT. WOW YOU CAN 

303 DATA"HEAD EITHER NORTH, SOUTH OR EAST. WHAT 

304 DATA"WOULD YOU GIVE FOR THE MAGIC WORD WHICH 
306 DATA"MIGHT TRANSPORT YOU THROUGH THIS LOT?# 

310 DATA"*1Y0U HAVE REACHED LEVEL NINE. PATHS HEA 
D 

311 DATA"EAST, WEST OR SOUTH. WAVING GOT THIS 

312 DATA"FAR, I WOULDN'T WANT YOU TO BLOW IT NOW. 

313 DATA"SUFFICE IT TO SAY, BE VERY, VERY 

314 DATA"CAREFUL, AND WATCH OUT FOR THE PIT OF 

315 DATA"MONSTERS TO THE WEST (OOPS, WHAT A G 

IVEAWAY).ft 

320 DATA"*2YOU ARE IN FRONT OF A POOL OF WATER, 

321 DATA"WHICH THRASHES ABOUT IN A WILD FRENZY. 

322 DATA"EVERY NOW AND AGAIN YOU CATCH A GLIMPSE 

323 DATA"OF SOME FEROCIOUS CREATURE, TEETH 

324 DATA"FLASHING IN THE SPARKLING LIQUID.":DATA" 

II 

325 DATA"BEHIND YOU LIE THE NINE LEVELS, AHEAD, 

326 DATA"ACROSS THE 30 FEET OF WATER, YOU CAN 

327 DATA"SEE A NARROW, TWISTING, TURNING 

328 DATA"CORRIDOR. YOUR GOAL IS ALMOST IN SIGHT, 

329 DATA"AMONGST THE TWISTING DEPTHS OF THE 
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330 DATA"CORRIDOR. HOWEVER, THERE IS THE SMALL P 
ROBLEM OF THESE CREATURES . ..# 

331 DATA"*3Y0U ARE TO THE NORTH OF THE POOL OF 

332 DATA"MONSTERS. THE PATH TWISTS TO WEST AND 

333 DATA"SOUTH, AND A SLISHT BREEZE CAN BE FELT 

334 DATA"BLOWING DOWN THE CORRIDOR. THE ROCK 

335 DATA"WALLS ARE QUITE COLD TO THE TOUCH, AS IF 

336 DATA"THE WIND OF AGES HAS COOLED AND 

337 DATA"WEATHERED THEM.# 

340 DATA"*4YOU ARE AT THE BOTTOM OF A CORRIDOR 

341 DATA"WHICH RISES TO THE NORTH. A BREEZE IS 

342 DATA"BLOWING DOWN THE CORRIDOR, AND YOUR 

343 DATA"TORCH FLICKERS AND CASTS EERIE, DANCING 

344 DATA"SHADOWS ON THE WALLS. A FEW SMALL 

345 DAT A"BOULDERS LIE ABOUT YOUR FEET, THE WIND 

346 DATA"ECHOES AND SIGHS, THE PATH BECKONS YOU N 
ORTHWARD ,, 

350 DATA"*5YOU ARE IN A LOW, ROUND, NORTH-SOUTH 

351 DATA"CORRIDOR. THERE IS A STRONG BREEZE 

352 DATA"BLOWING FROM THE NORTH, AND A STRANGE, 

353 DATA"UNEARTHLY LIGHT CAN BE SEEN, PERHAPS THE 

354 DATA"SOURCE OF THE BREEZE? SOUTH LEADS ONLY 

355 DATA"TO THE POOL OF MONSTERS, AND HAVING 

356 DAT A“DISPOSED OF YOUR COMPANION, THEY MAY BE 

357 DATA"GETTING HUNGRY AGAIN. YOU MUST HEAD N 
ORTH ...# 

360 DATA"*6YOU ARE IN THE TEETH OF A GALE. YOUR 

361 DATA"TORCH FLICKERS AND DANCES ABOUT 

362 DATA"ALARMINGLY, AND YOU CAN BARELY SEE YOUR 

363 DATA"WAY FORWARD AS THE DUST AND GRIT OF A 

364 DATA"THOUSAND YEARS BLOWS INTO YOUR STINGING 

365 DAT A 11 E YES ■# 

370 DATA"*7Y0UR TORCH IS SNATCHED OUT OF YOUR HAND 

371 DATA"BY THE ROARING GALE, AND YOU CAN ONLY 

372 DATA"FEEL YOUR WAY SLOWLY OVER THE MANY ROCKS 

373 DATA"AND BOULDERS THAT LITTER THE FLOOR OF 

374 DATA"THE TUNNEL. THE GRIT AND DUST BEGIN TO 

375 DATA"BLOCK YOUR THROAT, YOU START TO COUGH 

376 DATA"ALARMINGLY, AND YOU SENSE THAT YOU HAVE 

377 DATA"ONLY A FEW MINUTES LEFT TO GET OUT OF H 
ERE ALIVE ...# 

380 DATA"*8YOU HAVE BUMPED INTO A COLLECTION OF 

381 DATA"ROUGH BRACKEN AND MOSS. BENEATH THE 

382 DATA"MOSS YOU CAN FEEL A DOOR, A HANDLE, AND 

383 DATA"A SMALL KEYHOLE. ON ALL OTHER SIDES IS 

384 DATA"NOTHING BUT THE FEROCIOUS HURRICANE NOW 

385 DATA"COMING FROM OVERHEAD. A LIGHT SHINES 

386 DATA"ABOVE YOU, ENABLING YOU TO SEE, BUT AS 

387 DATA "THE GRIT THICKENS IN YOUR THROAT, YOU 

388 DATA"KNOW THAT YOU HAVE JUST SECONDS LEFT TO E 
SCAPE ...# 
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390 DATA"*9/011 ARE IN THE TINIEST OF TINY ROOMS. 

391 DATA"THE WIND HAS STOPPED, ALL IS CALM, AND A 

392 DATA"SHIMMERING LIGHT ETCHED INTO THE CEILING 

393 DAT A"REVEALS THE WORD 'AUSTIN'. THE SOLUTION 

394 DATA"TO THE NINE LEVELS? THE ONLY PATH OUT H 
EADS EAST TO THE OLD DOOR.# A 

400 DAT A25 

402 DATA"*0YOU ARE IN THE SECRET, SHADOWY CAVE 

403 DATA"THAT YOU GLIMPSED LONG AGO.DATA" " 

404 DATA"TO THE EAST, ACROSS A VAST GAP IN THE 

405 DATA"ROCKS, LIES THE SAFETY OF A ROCKY 

406 DATA"OUTPOST, BUT THE WAY BACK IS LONG AND 

407 DATA"TREACHEROUS. A PATH LEADS SOUTH, BUT 0 
NLY TO THE OLD DOOR ...# 

410 DATA"*1Y0U ARE AT THE NORTH-EAST END OF AN 

411 DATA"IMMENSE ROOM WHICH APPEARS TO BE A 

412 DATA"REPOSITORY FOR THE 'WOT THE COLOSSAL 

413 DATA"CAVE' PROGRAM. PASSIVE TORCHES FAR 

414 DATA"OVERHEAD BATHE EVERYTHING IN AN EERIE 

415 DATA"LIGHT. EMPTY BOTTLES, YOUNG BEANSTALKS, 

416 DATA"OYSTERS, BLACK RODS, BRASS LANTERNS, ALL 

417 DATA"LITTER THE FLOOR. MANY DWARVES ARE 

418 DATA"SNORING LOUDLY, THE SOUND OF THEIR 

419 DATA 11 SNOOZING BOUNCING OFF THE WALLS, DATA" " 

420 DATA"/IN IMMENSE MIRROR HANGS AGAINST ONE 

421 DATA"WALL, AND STRETCHES OFF INTO THE D 

ISTANCE.# 

422 DATA"*2Y0U ARE AT THE SOUTH-WEST END OF THE 

423 DATA"REPOSITORY. YOU CAN SEE A PIT FULL OF 

424 DATA"SNAKES, A ROW OF SMALL CAGES FULL OF 

425 DATA"LITTLE SULKING BIRDS, BLACK RODS AND 

426 DATA"VELVET PILLOWS ABOUND. A VAST MIRROR 

427 DATA"STRETCHES OFF TO THE NORTH-EAST."tDATA" " 

428 DATA"4T YOUR FEET IS A LARGE STEEL GRATE, AND 

429 DATA"ABOVE IT A SIGN, WHICH READS:DATA" " 

430 DATA" 'TREASURE VAULT. KEYS IN MAIN OFF ICE 
DATA" " 

432 DATA"OH WOW, YOU'VE FOUND THE ENDGAME ... N 
OW WHAT DO YOU DO?#"' 

433 DATA-1 

READY. 

Well, that was a marathon exercise, wasn't it? Still, not much fur¬ 
ther to go now, as we come to all the messages used in the program. 


Messages 

A wide variety of messages and responses is vital to an adventure 
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game, which is why the next few pages concern themselves with 
giving you a mixture of humorous and serious replies to various 
situations. 


These message programs take exactly the same file-making program 
as the room descriptions, so as ever load in that one first and then 
type in the following lines: 

99 DATA26 

100 DATA"*OCAIM'T YOU TYPE SOMETHING IN RIGHT FOR A 
CHANGE?#" 

101 DATA"*1YOU JUST KEEP GETTING THINGS WRONG, 
DON'T YOU?# 

102 DATA"*2YOU'LL NEVER SOLVE THE GAME AT THIS 
RATE,# 

103 DATA"*3YOU KNOW, THAT IS NOT THE BEST IDEA YOU 
HAVE EVER HAD.# 

104 DATA"*4EDDY IS A MYSTERIOUS PERSON. HE STARTE 
D" 

105 DATA"OFF LIFE AS A FAILED COLLEGE GRADUATE," 

106 DATA"BECAME A MILKMAN, LIKE, AND THEN DECIDED 

107 DATA"TO BECOME AN UNDERGROUND CULT FIGURE. 

108 DATA" " 

109 DATA"HE NOW JUST BLUNDERS ABOUT THE CAVES" 

110 DATA"TRYING TO BE HELPFUL. BUT HE'S NOT THAT" 

111 DATA"HELPFUL REALLY.#" 

112 DATA"*57T IS NOW PITCH DARK. YOU CAN'T FIND" 

113 DATA"YOUR WAY IN THE DARK, AND ONE FALSE 

114 DATA"MOVE WILL PROBABLY MAKE YOU FALL HEAD-" 

115 DATA"FIRST INTO A PIT.#" 

116 DATA"*6THERE'S NO POINT LOOKING FOR ANYTHING I 
N" 

117 DATA"THE DARK, SO I WOULDN'T BOTHER IF I WEREY 
OU.# 

118 DATA"*70F ALL THE THINGS YOU HAVE TO TRY AND" 

119 DATA"OPEN, WHY PICK ON THIS?# 

120 DATA"*BOH NO! YOU'VE OPENED THE PIRATE'S" 

121 DATA"CHEST!" 

122 DATA" " 

123 DATA"OUT OF THE CHEST JUMPS THE PIRATE, AND 

124 DATA"WITH A LITTLE CHORTLE HE TAKES ALL YOUR" 

125 DATA"TREASURE AND RE-DISTRIBUTES IT ABOUT" 

126 DATA"THE CAVES. OH WOW, REALLY HEAVY, IT 

127 DATA"COULD BE ANYWHERE NOW.#" 

128 DATA"*9YOU BRAVE SOUL. 7HERE'S NOTHING IN IT" 

129 DATA"NOW." 

130 DATA" " 

131 DATA"CONSIDER YOURSELF VERY, VERY LUCKY.# A 

139 DAT A27 

140 DATA"#OTHERE'S NOT REALLY MUCH POINT YOU KNOW, 
THERE'S NOTHING IN IT.# 
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141 DATA"*1WELL, I NEVER THOUGHT IT WOULD LOOK LIK 
E 

142 DATA“THIS! I DON'T KNOW IF I OUGHT TO ALLOW Y 
OU TO READ THIS.#" 

143 DATA"#2YOU KNOW, THERE ARE TIMES WHEN 1 THINK 

144 DATA"THAT YOU HAVEN'T THE FAINTEST IDEA WHAT Y 
OU'RE DOING.#" 

145 DATA"*3WEAVENS, INSIDE THE BOX IS A SMALLER 

146 DATA"BOX. I WONDER WHAT HAPPENS IF YOU OPEN I 
T?#" 

147 DATA"*4BY 'ECK, THERE APPEARS TO BE A TREASURE 
14S DATA"IN IT. SEE, PERSEVERANCE WORKS WONDERS.# 

149 DATA"*5IT'S OPENED ONCE, AND IT ISN'T GOING TO 
OPEN AGAIN.# 

150 DATA"*6WMM, IT DOESN'T SEEM TO WANT TO OPEN. 

151 DATA"WHAT YOU NEED IS A ... BUT THAT WOULD BET 
ELLING.# 

152 DATA"*7«Y GOODNESS, THIS CLAM MUST REALLY BE A 
N 

153 DATA"OYSTER (SOMETHING'S WORKED, HARD TO B 
ELIEVE, ISN'T IT?) 

154 DATA" " 

155 DATA"4 SMALL PEARL FALLS OUT AND ROLLS AWAY," 

156 DATA"AND THEN THE CLAM SLAMS SHUT AGIN.#" 

157 DATA"*G/.OOK, IF THE DOOR IS ALREADY OPEN, WHY 
OPEN IT AGAIN?# 

156 DATA"#9YOU PUSH AND YOU SHOVE, BUT ABSOLUTELY 
159 DATA"NOTHING HAPPENS. WETHINKS IT NEEDS 0 
ILING ...#''" 

169 DATA2G 

170 DATA"*OYOU MANAGE TO HEAVE THE DOOR OPEN, AND 

171 DATA"A NEW PATH OPENS OUT TO THE SOUTH.#" 

172 DATA"*1L00K, THE DOOR'S OPEN, WHY DON'T YOU 
JUST WALK THROUGH IT?# 

174 DATA"*2WMM, SOMETHING SEEMS TO HAVE GONE WRONG 

175 DATA"SOMEWHERE. PERHAPS A FEW MAGIC WORDS A 
RE NEEDED.#" 

176 DATA"*3/IS IF BY MAGIC THE DOOR CREAKS SLOWLY 

177 DATA"OPEN (O-P-E-N), AND YOU CAN NOW WALK 

178 DAT A"THROUGH INTO A MAGICAL. MYSTICAL LAND.# 

179 DAT A"#4THERE ARE SOME THINGS IN LIFE THAT ARE" 

180 DATA"NOT MEANT TO BE CLOSED, AND THIS IS ONE 0 
F THEM.# 

181 DATA"*5YOU CANNOT CLOSE THE GRATE.#" 

182 DATA"*6WHAT ARE YOU ON ABOUT?#" 

183 DATA"■*7YOUR BATTERIES ARE STARTING TO RUN LOW. 

II 

184 DATA"BETTER FIND SOME NEW ONES, OR YOU'LL H 
AVE TO QUIT.# 

185 DATA"*BYOUR BATTERIES HAVE RUN OUT. DOESN'T I 
TLOOK DARK!#" 
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186 DATA"*9H0W, SINCE YOU DON'T APPEAR TO BE 

187 DATA"CARRYING THAT, HOW ON EARTH DO YOU 

188 DATA"EXPECT TO DROP SOMETHING YOU HAVEN'TGOT?# 

✓s II 

189 DATA29 

190 DATA"*OYOU SHOULD HAVE KNOWN BETTER ... 3" 

191 DATA" " 

192 DATA"HAH. NOTHING TO WORRY ABOUT, IT COMES TO 

193 DATA"REST ON THE FLOOR.# 

194 DATA"*1£DDY LOOKS AT YOU IN HORROR, AND SAYS 

195 DATA"'WOW. DON'T GET THE HIPPY'.# 

196 DATA"*24H. YOU DROP THE ROD BUT" 

197 DATA"IT FALLS ON THE BIRD AND CRUSHES IT!" 

198 DATA" " 

199 DATA"THE TINY LITTLE FEATHERS TURN TO DUST" 

200 DATA"BEFORE YOUR VERY EYES. AND IT FLOATS TO 

201 DATA"THE GREAT AVIARY IN THE SKY ... (AWWWW)#" 

202 DATA"#3THE TROLL IS SIGNIFICANTLY LARGER THAN" 

203 DATA"YOU ARE, SO DON'T TRY IT.# 

204 DATA"*4THE OOZY, SLIMY BODY IS IMPOSSIBLE TO 
GET HOLD OF.# 

205 DATA"*5D0N'T BE RIDICULOUS. HE'S ABOUT FIFTY" 

206 DATA"TIMES YOUR SIZE.#" 

207 DATA"*6THAT IS NOT THE BEST IDEA YOU'VE EVER 
HAD IN YOUR LIFE.#" 

208 DAT A"*7Y0U'RE BEING SILLY, NOW AREN'T YOU?# 

209 DATA"*8N0W LOOK HERE, I CAN MANAGE TO DO MANY 

210 DATA"THINGS, BUT PERFORMING THE BLEEDIN' 

211 DATA"IMPOSSIBLE IS BEYOND EVEN ME.#" 

212 DATA"*9DWARVES HAVE EXCEPTIONALLY OILY SKINS" 
214 DATA“AND CANNOT BE PICKED UP. HOT EVEN THE F 
RIENDLY ONES.#''" 

219 DATA30 

220 DATA"*04RE YOU BEING SERIOUS? I MEAN, ARE YOU 

221 DATA"REALLY SERIOUS? I HOPE NOT, BECAUSE I'MN 
OT GOING TO DO IT.# 

222 DATA"*1HHAT WOULD YOU DO IF YOU GOT IT? (DON'T 
ANSWER THAT).#" 

223 DATA"*27HE BIRD SEEMS TO BE FRIGHTENED OF" 

224 DATA"SOMETHING. PROBABLY YOU, BUT I 'M NOT S 
URE.# 

225 DATA"*34ND WHERE IS THE CAGE TO PUT IT IN?#" 

226 DATA"*4IT APPEARS TO BE STUCK TO THE FLOOR.#" 

227 DATA"*5N0 NO NO NO NO, YOU CAN'T.# 

228 DATA"*6Y0U DROP THE BIRD IN FRONT OF THE SNAKE 

II 

229 DATA"AND IN AN ASTOUNDING FLURRY IT GETS E 

ATEN TO BITS ... OOOPS#" 

230 DATA"*7Y0U DROP THE BIRD IN FRONT OF THE" 

231 DATA"DRAGON, BUT IT DOESN'T APPEAR TO RELISH T 
HE BATTLE ...# 
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232 DAT A" *84MAZ ING! THE BIRD MUST BE A SPIDER" 

233 DATA"EATING ONE! IT DEMOLISHES BOTH SPIDER" 

234 DATA"AND WEB.#" 

235 DATA"*9W0T IMPRESSED. IT ISN'T A TROGON YOU 
KNOW.#"'" 

239 DATA31 

240 DATA"*OWOW, I DON'T KNOW IF YOU'VE NOTICED, BU 
T 

241 DATA"THIS ENORMOUS GREEN SNAKE APPEARS TO BE" 

242 DATA"IN THE WAY. IT WON'T LET YOU PAST.#" 

243 DATA"*1THERE IS AN ENORMOUS DEAD SNAKE HERE.#" 

244 DAT A"*27HERE IS AN EXTREMELY LARGE CLAM SITTIN 
GHERE.#" 

245 DATA"*34 VERY LARGE BEDROCK BLOCK BARS YOUR 
PROGRESS.#" 

246 DAT A"*4S0METHING YOU'RE CARRYING WON'T FIT 
THROUGH THE CRACK.#" 

247 DATA"*5THERE'S A TINY LITTLE PLANT HERE, 

248 DATA"MURMURING 'WATER, WATER'.# 

249 DAT A"*6THERE'S A SMALL PLANT HERE. MUTTERING 
'WATER, WATER'.# 

250 DATA"*7THERE'S A HEALTHY PLANT HERE, SHOUTING 
'WATER, WATER!'.# 

251 DATA"*8THERE'S AN ENORMOUS PLANT GROWING HERE" 

252 DATA"BELLOWING 'HATER HATER YOU &$!%&+!'#" 

253 DAT A"*9THERE IS A TINY, SHRIVELLED UP LITTLE 

254 DATA "PLANT GROWING HERE. #•*• 

259 DATA32 

260 DAT A"*07HERE IS A GIANT VENDING MACHINE HERE, 
EVER-READY FOR BUSINESS.# 

261 DATA"*1MY GOODNESS, GOOD HEAVENS, STAND BACK I 
NAMAZEMENT! 

262 DATA" " 

263 DATA"SITTING ON A ROCK, IN A YOGA POSITION, 

264 DATA"IS A FORLORN LOOKING CHARACTER, WHO 

265 DATA"EYES YOU SUSPICIOUSLY. WEARING FLARED" 

266 DATA"JEANS, AND A BATTERED TEE-SHIRT, HE 

267 DATA"LOOKS YOU IN THE FACE. THIS IS EDDY. 

268 DATA" " 

269 DATA"EDDY IS GOING TO BE YOUR COMPANION IN" 

270 DATA“THE CAVES. WHETHER YOU LIKE IT OR NOT. 

271 DATA"'WOW MAN', HE SAYS, AS YOU PEER AT HIM, 

272 DATA"'HEAVY TRIP!'. WE STANDS UP SLOWLY AND S 
TARTS TO FOLLOW YOU.#" 

273 DATA"*24 GIANT TROLL, SKIN LIKE A RHINOCEROS, 

274 DATA"APPEARS AND BLOCKS YOUR PATH. WE IS" 

275 DATA"CARRYING A SIGN WHICH READS STOP! PAY T 
DLL'.#" 

276 DATA"*34 GIANT TROLL. SKIN LIKE A RHINOCEROS. 

277 DATA"APPEARS AND BLOCKS YOUR PATH. WE IS" 

278 DATA"CARRYING A SIGN WHICH READS 'STOP! PAY T 
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DLL '.#" 

279 DATA"*4Y0U CAN HEAR SOME FAINT RUSTLING NOISES 
IN THE DISTANCE.*" 

280 DATA"*54 DWARF SUDDENLY SCUTTLES ROUND A" 

281 DATA"CORNER, AND VICIOUSLY THROWS AN ANCIENT 

282 DATA"AXE AT YOU. WE THEN SCAMPERS OFF INTO T 
HE DISTANCE«#“ 

283 DATA"*64 DWARF APPEARS, AND A KNIFE HURTLES 
TOWARDS YOU.* 

284 DATA"*70UT FROM THE SHADOWS BEHIND YOU POUNCES 

II 

285 DATA"A BEARDED PIRATE. 'WAR HAR HAR', HE 

286 DATA"CHORTLES. 'I'LL JUST TAKE ALL THIS" 

287 DATA"BOOTY AND HIDE IT WITH ME CHEST" 

288 DATA"IN THE MAZE!'. WE SNATCHES YOUR" 

289 DATA"TREASURE AND VANISHES OFF INTO THE G 

LOOM.*" 

290 DATA"*8THERE IS A RUSTY DOOR IN YOUR WAY, 
BLOCKING FURTHER PROGRESS.* 

291 DATA"*9G00D HEAVENS! THERE'S A GOLD COIN HERE 

292 DATA"EMBEDDED INTO THE FLOOR. I WONDER HOW" 

293 DATA"YOU'RE GOING TO GET IT OUT OF THE G 

ROUND.*~ 

300 DATA-1 

READY. 

You'll see that, as before, everything starts off with a numerical data 
statement, followed by a whole host of string data. When you've 
finished typing it all in, run the program, and then we can start the 
job of checking it all again. 

Enter G0T025 as before, and when the prompt for the number ap¬ 
pears type in 260, the first of the message numbers. This should read: 

Can't you type something in right for a 
change? 

with the prompt for another number sitting below it. Go through 
all the messages to make sure they're correct, and re-run the pro¬ 
gram if you find any mistakes. Don't forget about inserting the oc¬ 
casional cursor-up when the 64 decides to skip a line. 

Having checked the first program, you can now type in the rest of 
the messages. 
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99 DATA33 

100 DATA"*0W0W, YOU PROBABLY HAVEN'T NOTICED IT, 

101 DATA"BUT RIGHT IN FRONT OF YOU, AND TWO FEET 

102 DATA"AWAY, IS A LARGE AND EXTREMELY CROSS 

103 DATA"DRAGON. WITH SMOKE POURING OUT OF HIS" 

104 DATA"NOSTRILS, AND HATRED POURING OUT OF HIS 

105 DATA"EYES. HE LOOKS A FEARSOME SIGHT.# 

106 DAT A"*14CRQSS THE PATH IN FRONT OF YOU IS" 

107 DATA"STREWN A HUGE SPIDER'S WEB, AND RIGHT 

108 DATA"IN THE MIDDLE OF IT IS A HUGE BULBOUS" 

109 DATA"SPIDER. 'ECK!#" 

110 DAT A" *27“HERE IS A LARGE DOOR IN FRONT OF YOU," 

111 DATA"AND ON THE DOOR IS WRITTEN SOME ANCIENT" 

112 DATA"RUNIC MESSAGE. 1 WOULDN'T BOTHER" 

113 DATA"READING IT. IF J WERE YOU.# 

114 DATA"*3WMM, YOU APPEAR TO BE IN THE MIDDLE OF 

115 DATA"A LARGE UNDERGROUND BAR. 7HERE'S A HUGE 

116 DATA"BARMAN HERE, AND EMPTY POTS AND DUSTY C 
HAIRS LIE EVERYWHERE.# 

117 DATA"*4BY 'ECK. THERE'S A BLOODY GREAT TROLL 

118 DATA"HERE. WE COULD BE THE BROTHER OF THE" 

119 DATA"ONE YOU MET EARLIER, ALTHOUGH IT'S HARD 

120 DATA "TO TELL REALLY. ANYWAY, HE WANTS SOME 

121 DATA"TREASURE BEFORE HE'LL LET YOU PAST.#" 

122 DATA"*5/1 GIANT TROLL APPEARS AND BLOCKS YOUR 
PATH.#" 

123 DATA"*6YOUR TORCH BOUNCES ALONG IN THE TUNNEL, 
AND IS LOST TO SIGHT.# 

124 DATA"*7THE BRACKEN BLOCKS YOUR ACCESS TO THE 
DOOR.#" 

125 DATA"*8YOU HAVE SOME WEIRD IDEAS, AND THIS IS 
DEFINITELY ONE OF THEM.# 

126 DATA"*9WMMM, NOT BAD, BUT NOT A VINTAGE YEAR.# 

A 

127 DATA-1 
READY. 

100 DATA34 

102 DATA“*OOH, LIKE, MOM MAN, THIS STUFF IS REALLY 
104 DATA 11 SOMETHING ELSE. YOU SEEM TO BE FLOATING 

106 DATA"ON AIR DATA" " 

107 DATA"IN FACT, YOU ARE FLOATING ...I# 

110 DATA"*17 REALLY MOULD HAVE THOUGHT THAT YOU'D 

111 DATA"HAVE KNOHN BETTER THAN TO ASK FOR ANY 

112 DATA"HELP. YOU'RE NOT GETTING ANY, NOT NOM, 

113 DATA"NOT LATER, NOT EVER!!!# 

120 DAT A"#2CH0MP ... CHOMP ... CHOMP ..."sDATA" " 

121 DATA"THAT HAS REALLY NICE. PITY YOU CAN'T S 
OLVE THE GAME NON ...» 

130 DATA"*3WELL, 1 DON'T THINK THAT'S A VERY NICE 
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131 DATA"IDEA, SO 1 WON'T LET YOU DO IT. JUST 

132 DATA"LEAVE THE POOR BIRD ALONE, IT'S SOT 

133 DATA"ENOUGH TO DO IN THIS GAME AS IT IS.# 

140 DATA"*4FANCY A DRAGON BURGER DO WE? MO, YOU'L 
L 

141 DATA "HAVE TO THINK OF ANOTHER WAY TO GET PASTT 
HE DRAGON.# 

150 DATA"*50H WOW, REALLY HEAVY TRIP. EDDY STARTS 

151 DATA"WAVING HIS ARMS ABOUT AND RUNNING AROUND 

152 DATA"ALL OVER THE PLACE, BUT SOON CALMS DOWN 

153 DATA"AND COMES BACK TO YOU. # 

160 DATA"*6J DON'T THINK THAT WOULD BE A VERY GOOD 
IDEA.# 

170 DATA"*700 YOU REALLY WANT TO SOLVE THIS GAME? 

171 DATA" ":DATA"COME ON NOW, BE SENSIBLE.# 

172 DATA“*8GULP ... GULP ... GULP ... HIC!# 

180 DATA"*9HELL, LIKE, HEAVY, BUT YOU HAVEN'T GOT 
ANY LENTILS, MAN.# A 
185 DATA35 

190 DATA“*07HE BIRD ISN'T HUNGRY, IT'S MERELY 

191 DATA"PININ' FOR THE FJORDS. ANYWAY, IT LOOKS 

192 DATA“NOTHING LIKE A NORWEGIAN BLUE TO ME.# 

210 DATA"*1I DON'T THINK SO SOMEHOW.# 

212 DATA"*2YOU SEE NOTHING OF INTEREST.# 

214 DATA"*31'M NOT GOING TO TELL YOU ANYTHING THAT 

215 DATA"MIGHT POSSIBLY HELP YOU SOLVE THIS GAME.# 

216 DATA"*4EEEH, YOU CAN'T GET A DECENT PINT FOR 

217 DATA"LOVE NOR MONEY THESE DAYS CAN YOU? 

218 DATA"STILL. IT SEEMS TO TASTE ALL RIGHT < 

HIC, WOBBLE, BELCH ...)# 

250 DATA"*54 NEW SET OF BATTERIES HAS APPEARED ON 

251 DATA"THE GROUND IN FRONT OF YOU. THAT WAS A 

252 DATA"TURN UP FOR THE BOOKS WASN'T IT?# 

260 DATA"*6WELL WOULD YOU 4DAM 'N' EVE IT. THE 

261 DATA"COIN HAS RE-APPEARED AGAIN.# 

270 DATA"*7.1 'M TAKING THE LIBERTY OF REPLACING YOU 
RBATTERIES■# 

280 DATA"*8HMM, YOU KNOW IN THE ORIGINAL GAME WHEN 

281 DATA "YOU DID THIS IN THE RIGHT LOCATION, AND 

282 DATA"THE GOLDEN EGGS RE-APPEARED?"tDATA" 3" 

283 DATA"MELL, IT DOESN'T WORK IN THIS ONE. YOU 

284 DATA"HEAR FOOTSTEPS IN THE DISTANCE, 

285 DATA"THUNDEROUS FOOTSTEPS, AND ROUND A CORNER 

286 DATA"APPEARS THE BIGGEST GIANT YOU'VE EVER 

287 DATA"SEEN! HE'S BIGGER THAN YOU, ANYWAY.":DAT 
A" 11 

288 DATA"WITH ONE MIGHTY SWIPE OF HIS ARM, HE 

289 DATA"KNOCKS YOU TO THE FLOOR AND KILLS YOU!":D 
ATA" " 

290 DATA"4ND SINCE I HAVEN'T GOT ANY ORANGE SMOKEO 
N ME, THAT'S YER LOT!# 
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291 DATA"*9Y0U APPEAR TO HAVE FOUND THE MAGIC WORD 
." 5 DATA" " 

292 DATA"THE GROUND SHIMMIES AND SHAKES,THE 

293 DATA"SPECTRE SEEMS TO DISSOLVE INTO NOTHING, 

294 DATA"AND AS IF BY MAGIC YOU ARE TRANSPORTED 

295 DATA"BEYOND IT. DON'T SUPPOSE IT'LL WORK A 
GAIN THOUGH.#■''• 

300 DATA36 

302 DATA“*07HAT IS AN OLD FASHIONED MAGIC WORD, AN 
DHAS NO EFFECT IN THE CAVES.# 

310 DATA"*1SOMETHING YOU'RE CARRYING WON'T FIT 
THROUGH THE CRACK.# 

320 DATA"*2YOU HAVE SPENT TOO LONG IN THE CAVES .. 

II 

• 

322 DATA"d HIDEOUS CREATURE, A CREATION OF THE 
324 DATA"ROCKS, STRETCHES OUT TOWARDS YOU, AND 
326 DATA"WITH A SINGLE MOVEMENT YOU ARE SWEPT TO T 
HE FLOOR. OH DEAR ...# 

330 DATA"*3L00K. THIS IS THE DARK ROOM. ISN'T IT?" 
s DATA" " 

332 DATA"IF I'VE TOLD YOU ONCE I'VE TOLD YOU A 

333 DATA"THOUSAND TIMES, YOU CAN'T DO ANYTHING IN 

334 DATA"THE DARK OR YOU MIGHT FALL INTO A PIT.# 
340 DATA"*47HIS IS NOT THAT KIND OF GAME, SO JUST 

GET ON WITH IT.# 

350 DATA"*57HE GROUND QUIVERS BENEATH YOUR FEET, 

352 DATA"MIGHTY RUMBLINGS FILL THE AIR, A CRYSTAL 

353 DATA"BRIDGE APPEARS AND ,..3 

354 DATA" DATA"OH NO, IT FALLS TO THE BOTTOM OF 
THE 

356 DATA"CHASM, WHICH IS NOW MUCH WIDER, AND YOU 

357 DATA"CAN'T POSSIBLY JUMP ACROSS IT.# 

360 DATA"*6D0N'T BE SILLY. NOTHING HAPPENS.# 

370 DATA"*7YOU PLUMMET INTO THE ABYSS BY YOUR SIDE 
AND DIE A HORRIBLE DEATH ...3# 

3B0 DATA"*8«ITH A MIGHTY BOUND AND A JACK-KNIFE IN 
382 DATA"MID-AIR, YOU MAKE IT TO THE OTHER SIDE.# 

390 DATA"*9B0ING ... BOING ... BOING. Z.OTS OF FUN 

391 DATA"BUT NOTHING MUCH HAPPENS.#'"' 

400 DAT A-1 

READY. 

100 DATA37 

102 DATA"*O0H NO! THE CRACK IS MUCH TOO WIDE, YOU 
104 DATA"JUST FAIL TO REACH THE OTHER SIDE, AND 
106 DATA"WITH A DESPERATE SCRABBLING OF HANDS, 

108 DATA"FALL DOWN INTO THE BOTTOMLESS PIT FAR B 
ELOW ...# 

110 DATA"*1PHEW, THAT WAS CLOSE, BUT YOUR HANDS 
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112 DATA"CQULDN'T QUITE MANAGE TO HANG ON.# 

113 DATA"*2HA HA! HADE IT, AND YOU CAN NOW CARRY 
ON WITH THE GAME.# 

120 DATA"*3/ILL THE OIL FALLS AT YOUR FEET AND SOAK 
S 

121 DATA"AWAY INTO THE FLOOR.# 

130 DATA"*47HE OIL FREES THE DOOR AND YOU CAN NOW 
132 DATA"MOVE IT, ALTHOUGH IT REQUIRES SOME E 

FFORT.# 

150 DATA"*5Y0U'VE NOTHING TO PUT IT IN.# 

160 DATA"*6DRIP ... DRIP ... DRIP ..."sDATA.DAT 

A "ALL OVER YOUR FEET.# 

170 DATA"*77HE TROLL CATCHES THE PYRAMID, AND WITH 

171 DATA"A CACKLE SCUTTLES OFF INTO THE DARKNESS.# 

180 DATA"*87HE TROLL CATCHES THE AXE, LOOKS AT IT, 

181 DATA"SAYS 'NICE WORKMANSHIP, BUT NOT VERY 

182 DATA"VALUABLE', AND THROWS IT BACK AT YOUR F 
EET. # 

190 DATA"*97HE TROLL CATCHES THE AXE, LOOKS AT IT, 
192 DATA"SAYS 'NICE WORKMANSHIP, AND PERHAPS IT 

194 DATA"IS WORTH SOMETHING', AND THEN LUMBERS 

195 DATA "OFF INTO THE DARKNESS.#'' 

200 DATA38 

202 DATA"*07HE TROLL CATCHES YOUR TREASURE, AND 
204 DATA"WITH MUCH RUBBING OF HANDS, STROLLS OFF 
206 DATA"INTO THE GLOOM AND DARKNESS OF THE C 

AVES.# 

210 DATA"*1THE TROLL CATCHES IT, LOOKS AT IT, AND 
212 DATA"SAYS 'WORTHLESS, ABSOLUTELY WORTHLESS', 
214 DATA"BEFORE THROWING IT BACK AT YOUR FEET.# 

220 DATA"*27HE DWARF DARTS TO ONE SIDE AND DODGES 
YOUR THROW.# 

230 DATA"*3/1 DWARF DARTS OUT FROM BEHIND A ROCK AN 
D 

231 DATA"THROWS A KNIFE AT YOU!# 

240 DATA"*4YQU'VE KILLED A LITTLE DWARF."5DATA" 3" 

241 DATA"!.IKE ALL DWARVES, HIS BODY VANISHES IN A 
GREASY CLOUD OF BLACK SMOKE.# 

250 DAT A"*5DWARVES' KNIVES ARE MAGIC, AND VANISH A 
SSOON AS THEY'RE THROWN.# 

255 DATA"*67HE KNIFE SINKS INTO YOUR SIDE, AND WIT 
H 

256 DATA"BLOOD DRIPPING FROM THE OPEN WOUND, YOU 

257 DATA"MANAGE TO UTTER THE WORD 'RATS' BEFORE 

258 DATA"COLLAPSING IN A DYING HEAP.# 

260 DAT A"*77HERE IS A LITTLE GRINNING DWARF HERE.# 
270 DATA"*87HE EVER-PEACEFUL EDDY IS BUMBLING ALON 
GBEHIND YOU.# 

280 DAT A" *9Y0U' RE NOT STRONG ENOUGH TO DO THAT.#'' 

300 DATA39 

301 DATA"*07 HAVEN'T THE FAINTEST IDEA WHAT YOU'RE 
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THINKING OF SOMETIMES.# 

302 DATA"*1IF YOU HAVEN'T GOT ANY WATER, HOW DO YO 
UEXPECT TO WATER SOMETHING?# 

320 DATA"*2Y0U WATER THE LITTLE PLANT AND IT GROWS 
A TINY AMOUNT.# 

330 DATA"*3YOU WATER THE PLANT AND IT GROWS A 
LITTLE.# 

340 DATA"*4YOU WATER THE LARGE PLANT AND IT GROWS 

341 DATA"ENORMOUSLY, ALMOST FILLING THE PIT.# 

350 DATA"*50H NO! YOU'VE OVERWATERED IT, AND THE 

351 DATA"POOR LITTLE THING SHRIVELS AND DIES.# 

360 DATA"*60H, JUST LEAVE THE POOR LITTLE PLANT 

361 DATA"ALONE. IT'S NOT HAPPY WITH YOU, YOU K 
NOW.# 

370 DATA"*7Y0U'RE NOT STRONG ENOUGH TO BREAK YOUR 

371 DATA"WAY OUT OF A PAPER BAG, SO I WOULDN'T B 
OTHER TRYING.# 

3B0 DATA"#BWMM. INTERESTING REQUEST, BUT I DON'T 
381 DATA"THINK I 'LL CARRY IT OUT.# 

390 DATA"*9dND JUST WHAT DO YOU EXPECT TO MOVE IT 
WITH?#'' 

400 DATA40 

401 DATA"*OYOU'VE ALREADY DONE THAT, SO DON'T TRY 
MY PATIENCE.# 

402 DATA"*1HURRAY, THE COIN CREAKS ITS WAY OUT OF 

403 DATA"THE GROUND, AND WITH A FINAL LITTLE 

404 DATA"'PLOP' FALLS AT YOUR FEET.# 

420 DATA"*2HQW DO YOU EXPECT TO DO THAT WITHOUT TH 
EAXE?# 

430 DATA"*3THE PLANT WON'T LET YOU. IT DODGES OUT 

431 DATA"OF THE WAY OF YOUR CLUMSY BLOW, SHAKES 

432 DATA"ITS ROOTS, AND SETTLES DOWN AGAIN.# 

440 DATA"*41 WORRY ABOUT YOU SOMETIMES. YOU'RE 

441 DATA"THE ONLY VAGUELY SENSIBLE THING AROUND, 

442 DATA"AND YET HERE YOU ARE TALKING TO NOTHING .0 
DD, DASHED ODD.# 

450 DATA"*54RE YOU SCHIZOPHRENIC OR SOMETHING? 

451 DATA"EDDY'S HERE, TALK TO HIM.# 

460 DATA"#6HHAT DO YOU WANT POOR OLD EDDY TO DO?# 

470 DATA"*77HE INCREDIBLE EDDY TURNS GREEN, MUSCLE 
S 

471 DATA"RIPPLE, HIS SHIRT GETS TORN TO RIBBONS, 

472 DATA"AND WITH A MIGHTY ROAR HE TEARS THE 

473 DATA"DRAGON LIMB FROM LIMB.":DATA" 3" 

474 DATA"COR, THAT SUPRISED YOU DIDN'T IT?3 

475 DATA" "sDATA"EDDY SHAKES HIS HEAD IN BEWILDERM 
ENT, 

476 DATA"LOOKS AT HIS TORN SHIRT, AND MUTTERS 

477 DATA"'WOW, HEAVY HEAVY HEAVY', BEFORE S 

ETTLING DOWN AGAIN.# 

480 DATA"*8'LIKE, I'M SUPPOSED TO BE A REALLY 
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482 DATA"PEACEFUL HIPPY, RIGHT, SO DON'T TRY AND 
484 DATA "GET ME TO DO THINGS THAT ARE HEAVY AND U 
N-COOL, MAN'.# 

490 DATA"*9£DDY LOOKS AT THE ROCK, SAYS 'COME ON 

491 DATA"LITTLE ROCK. OUT OF THE WAY', AND BEFORE 

492 DATA"YOUR VERY EYES IT MOVES TO ONE SIDE. 

494 DATA" " 

495 DATA"EDDY TELLS YOU THAT HE, LIKE, REALLY U 
NDERSTANDS ROCKS, RIGHT?#''' 

500 DATA41 

502 DAT A"*0'WELL, 1 REALLY FANCIED A SWIM', AND IN 
504 DATA"HE DIVES. THE WATERS THRASH INTO A 
506 DATA"FRENZY, AND HE DISAPPEARS. TAKING A 

508 DATA"FLURRY OF CREATURES WITH HIM. THE POOL 

509 DATA"NOW LOOKS CLEAR AND SAFE TO SWIM ACROSS.# 

510 DATA“*1'THAT'S NICE, ISN'T IT, 1 HELP YOU OUT, 
512 DATA"I'M LIKE A REALLY GOOD COMPANION, RIGHT, 

514 DATA"AND NOW YOU WANT ME TO GET LOST. HUH!', 

515 DATA"AND WITH A SHRUG OF HIS SHOULDERS HE S 
HUFFLES OFF.# 

520 DATA"*2'HA, 1 KNOW THIS ONE', AND HE SITS DOWN 
522 DATA"AND STARTS SINGING ABOUT GOLD.# 

524 DATA"*34 FIGURE APPEARS OUT OF THE GLOOM, AND 

525 DATA"SAYS 'HELLO', BEFORE, LIKE, SQUATTING D 
OWN BESIDE YOU.# 

540 DATA"*4YOU FALL OVER IN AN ENTHUSIASTIC KICK, 
542 DATA"AND GET UP AGAIN, FEELING EMBARRASSED.# 

550 DATA"*5£TRM, WELL, THIS IS A LOT LARGER THAN 

551 DATA"YOU ARE, AND IT'S ALL BULBOUS AND 

552 DATA“HORRIBLE, SO FOR YOUR OWN SAKE 1 WON'T L 
ET YOU DO IT.# 

560 DATA"*6TR0LLS ARE BROTHERS OF THE ROCK AND HAV 
E 

561 DATA"SKINS LIKE THAT OF A RHINOCEROS. SO 

562 DATA"YOUR BLOWS HAVE NO EFFECT.# 

570 DATA"*7BEING ABOUT FIFTY MILLION TIMES YOUR 

571 DATA"SIZE, YOUR BLOWS HAVE NO EFFECT AND THE 

572 DATA"DRAGON JUST LIES THERE, IGNORING YOU.# 

580 DATA"*BOH, REALLY UN-COOL AND HEAVY. EDDY 

581 DATA"DODGES OUT OF THE WAY AND GIVES YOU A B 
ALEFUL GLARE.# 

590 DATA"*9C0ME ON, WITH WHAT, YOUR BARE HANDS?#'' 

591 DAT A-1 

READY. 
lOO DATA42 

102 DATA"*OTHIS IS NOT ONE OF YOUR BETTER IDEAS.# 

110 DATA"*1YQU'VE ALREADY ATTACKED AND KILLED THE 

111 DATA"SNAKE. IT IS DEAD, IT IS AN EX-SNAKE, W 
HAT MORE DO YOU WANT?# 
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120 DATA"«20H NO. OH DEAR OH DEAR OH DEAR!3":DATA" 

II 

122 DATA"THE SNAKE FLIES AT YOU. AND WITH MUCH 

124 DATA"HISSIN6 AND DARTING OF ITS EVIL LITTLE 

125 DATA“TONGUE IT WRAPS ITS COILS AROUND YOU ANDS 
QUEEZES ...3":DATA" " 

126 DATA"UNTIL YOU'RE DEAD!# 

130 DAT A"*34MAZING, ASTOUNDING, SUCH STRENGTH AND 

131 DATA"FEROCITY!":DATA" » 

132 DATA"YOU FLY AT THE SNAKE AND, IN AN 

133 DATA"INCREDIBLE DISPLAY OF STRENGTH, YOU KILL 

134 DATA"IT. HARD TO BELIEVE, ISN'T IT?# 

140 DATA"*4Z'M AFRAID YOU HAVE NO DYNAMITE.# 

145 DATA"*57HR0UGH0UT THE COURSE OF THIS GAME 

146 DATA"YOU'VE HAD SOME PRETTY STRANGE IDEAS, B 
UT THIS BEATS THEM ALL.# 

150 DATA"*6THE WALLS ARE CRUSHED BY THE FORCE OF 

151 DATA"THE EXPLOSION, A GAPING HOLE APPEARS IN 

152 DATA"THE WEST WALL, AND A VAST TIDE OF 

153 DATA"STEAMING LAVA FLOWS IN AND ENGULFES YOU.# 

160 DATA"*7THE SOUND OF THE EXPLOSION WAKES UP THE 

161 DATA"SLEEPING DWARVES. SOME OF THEM ARE 

162 DATA"CARRYING KNIVES, MANY OF THE DWARVES 

163 DATA"THROW THEM AT YOU, ALL OF THEM GET YOU!# 

180 DATA"*8THE WALLS ARE CRUSHED BY THE FORCE OF 

181 DATA"THE EXPLOSION, A GAPING HOLE APPEARS IN 

182 DATA"THE EAST WALL, AND A VAST TIDE OF 

183 DATA"STEAMING LAVA FLOWS IN AND ENGULFS THE 

184 DATA"DWARVES."sDATA" " 

185 DATA "THROUGH ANOTHER HOLE IN THE WEST WALL 

186 DATA"COMES A HORDE OF CHEERING ELVES, WHO 

187 DATA"PICK YOU UP AND CARRY THE CONQUERING 

188 DATA"ADVENTURER OFF INTO THE DISTANCE."sDATA" 
3" 

189 DATA"/IFTER DAYS OF FEASTING, YOU RETURN TO 

190 DATA“YOUR TREASURES IN THE BUILDING, AND 

191 DATA"FIND, TO YOUR AMAZEMENT, AN EXTREMELY 

192 DATA"DAMP EDDY SITTING ON TOP OF THE GOODIES, 

193 DATA"A WET FISH HANGING BEHIND HIS EAR."sDATA" 

II 

194 DATA"WE LOOKS AT YOU, AND SAYS 'PHEW, THAT 

195 DATA"WAS CLOSE'."sDATA" " 

196 DATA 11 WELL, WELL, WELL. IT LOOKS LIKE YOU'VE 

197 DATA"SOLVED THIS ADVENTURE AFTER ALL.# 

199 DATA"*9YOU ARE A LEADER, NOT A FOLLOWER, SO 
LEAD, DON'T FOLLOW.#~ 

200 DATA43 

201 DATA"*OIF YOU WANT TO FIND SOMETHING, LOOK FOR 
IT YOURSELF.# 

210 DATA"*1YOU CUT AND YOU SWIPE, AND THE FORCE OF 
212 DATA"YOUR EFFORTS TEARS THE BRACKEN INTO T 
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INY PIECES.# 

220 DATA"*2Y0U CAN'T. THE BRACKEN OBSCURES JUST 
ABOUT EVERYTHING.# 

270 DATA"*7tfMM, IT WOULD APPEAR THAT YOU'VE 
FORGOTTEN THE KEY.# 

280 DATA"*8L0 AND BEHOLD, IT OPENS, AND YOU CAN NO 
W 

281 DATA"GAIN ACCESS TO THE FINAL LOCATION ...# 

290 DATA"*9THEY ARE SMALL AND BLUE, AND DART OUT 0 
F 

291 DATA"REACH AS SOON AS YOU TRY AND GET HOLD OFT 
HEM.#^ 

300 DATA44 

301 DATA"*0LOOK. JUST GET ON WITH IT, WILL YOU? 
STOP WASTING TIME.# 

310 DATA"*1YOU START TO SWIM ACROSS THE LAKE, BUT 

311 DATA"REALISE AFTER A WHILE THAT YOU CAN'T 

312 DATA"SWIM, AND WITH A GULP AND A GASP YOU V 
ANISH BENEATH THE WATERS ...# 

320 DATA"*24S SOON AS YOU SET FOOT IN THE WATERS 

321 DATA"THEY ARE CHURNED INTO A FRENZY, AND A 

322 DATA"MYRIAD OF RAZOR-SHARP TEETH DRAG YOU 

323 DATA"DOWN BENEATH THE WATERS.# 

325 DATA"*3JUST WHEN YOU THOUGHT IT WAS SAFE TO 

326 DATA"GO BACK INTO THE WATERS, ALONG COMES A 

327 DATA"DIRTY GREAT MONSTER AND SWALLOWS YOU UP I 
N ONE GO.# 

330 DATA"*4L00K, NO SWIMMING ALLOWED HERE, ALL 
RIGHT?# 

340 DATA"*5N0W THAT EDDY HAS CLEARED THE WAY, YOU 

341 DATA"SWIM THROUGH UN-IMPEDED AND ARRIVE 

342 DATA"SAFELY ON THE OTHER SIDE.# 

360 DAATA"*6SNIFF SNIFF SNIFF SMELL SMELL SMELL.": 
DATA" " 

361 DATA"THE USUAL GHASTLY ODOURS ASSAULT YOUR N 
OSE.# 

370 DATA"*7S0 WHERE'S THE LAKE. DUMBO?# 

380 DATA"*BYOU HAVE NO OARS, SO YOU CAN'T GET 
ANYWHERE.# 

390 DATA"*9YOU ROW ON AND ON ...#^ 

400 DATA-1 

READY. 

100 DATA45 

102 DATA"*OTHERE DOESN'T SEEM TO BE A BOAT ON THE 
104 DATA"GROUND BESIDE YOU TO ROW IN.# 

110 DATA"*1YOU CAN'T PAY BY CHEQUE OR VISA CARD IN 
112 DATA"THE CAVES, YOU KNOW, AND SINCE YOU 
114 DATA"HAVEN'T GOT ANY MONEY, THE BARTENDER T 
URFS YOU OUT.# 
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120 DATA"*2THAT WON'T WORK, YOU HAVEN'T SOT ANY 
MONEY.# 

122 DATA"*3Y0U GET YOURSELF A DRINK, BUT JUST THEN 

124 DATA"EDDY LOOMS UP AND SAYS 'WOW, A DRINK, 

125 DATA"!'LL HAVE ONE OF THOSE', AND HELPS 

126 DATA"HIMSELF TO A DRINK. "sDATA" " 

127 DATA"UNFORTUNATELY, YOU HAVEN'T SOT ANY 

128 DATA"MONEY TO PAY FOR IT, SO YOU BOTH GET E 
JECTED EMPTYHANDED.# 

130 DATA"*4'T'ANK EE' KINDLY SIR', SAYS THE 
132 DATA"BARTENDER, TAKING YOUR MONEY."sDATA" " 

134 DATA"'BUT I DON'T ACCEPT BRIBES, YOU SEE', A 
ND HE THROWS YOU OUT.# 

150 DATA"*5YOU MANAGE TO BUY JUST ONE DRINK FOR 
152 DATA"YOURSELF, AND THE BARTENDER BIDS YOU ON Y 
OUR WAY.# 

160 DATA"#6YOU GIVE THE CREATURE YOUR DRINK, AND 

161 DATA"WITH A HIC AND A BELCH IT SCUTTLES OFF.# 

170 DATA"*7/T'S WRITTEN IN DWARVISH, AND NOT 

171 DATA 11 POSSESSING A DEGREE IN LANGUAGE 

172 DATA"TRANSLATION, YOU CAN'T READ IT. WIND 

173 DATA"YOU, PAGE THREE LOOKS NICE.#" 

180 DATA“*8JT'S ALL TORN AND BATTERED, AND YOU 

181 DATA"CAN'T MAKE ANYTHING OUT.# 

190 DATA"*9I'VE ALREADY TOLD YOU EVERYTHING THAT'S 
WRITTEN ON IT.#~ 

200 DATA46 

202 DATA"*01 THINK IT PROBABLY MEANS THAT PLUGH' 
IS A MAGIC WORD.#" 

210 DATA"*1WHAT'S THE MATTER. CAN'T YOU READ 
YOURSELF?#" 

220 DATA" *2A VOICE BOOMS OUT AND SAYS 'ONE OF THE 

221 DATA "HORDS I USED TO KNOH NOH HAS A VERY 

222 DATA"DJFFEREHT HEARING '.# 

230 DATA"*3WMM, THIS COULD HAVE A MAGIC EFFECT, IF 
USED WISELY.# 

240 DATA"*4>fYE, WHY ME INDEED?# 

250 DATA"*5THERE DOESN'T APPEAR TO BE MUCH WRITTEN 
ON THIS.# 

260 DATA"*6YOU CAN'T CLIMB ANYWHERE AROUND HERE 
WITHOUT A ROPE.# 

270 DATA"*77HE PLANT ISN'T BIG ENOUGH YET.# 

280 DATA"*8THE PLANT IS LARGE AND BUSHY, AND YOU 
CAN CLIMB IT WITH EASE.# 

290 DATA"#9THERE DOESN'T SEEM TO BE MUCH TO CLIMB 
AROUND HERE.# A 
300 DATA47 

302 DATA"*OWITH AN ALMIGHTY EFFORT YOU SHIMMY YOUR 

303 DATA "WAY ALONG THE ROPE AND ARRIVE ON TERRA 

304 DATA"FIRMA ONCE MORE. BEING A WISE AND 

305 DATA"INTELLIGENT PERSON, YOU UNTIE THE ROPE 
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306 DATA"AND LEAVE IT ON THE GROUND NEXT TO YOU.# 
308 DATA“*10UT FROM BEHIND A ROCK JUMPS A BEARDED 
310 DATA"PIRATE. 'WAR HAR HAR', HE CHUCKLES, 

312 DATA"'J 'LL JUST TAKE THIS BOOTY AND HIDE IT 
314 DATA"WITH ME CHEST, DEEP IN THE MAZE'sDATA" 

II 

316 DATA"BEFORE YOU CAN BLINK, HE STEALS YOUR 
318 DATA"TREASURE AND SCURRIES OFF INTO THE S 

LOOM.# A 
400 DATA-1 

READY. 

Phew! But we're nearly there now, with just verbs, nouns, objects 
and the map to go. 


Verbs, nouns and objects 

'Enormous Cave' has quite a wide vocabulary, and can understand 
some 84 verbs and 107 nouns. Not as much as 'Zork', I must admit, 
but a reasonably healthy number nevertheless. 


1 DIMVB* (84) .N04 (107) .OB* (107) .OB*/. (107.1) : Z*=CHR* ( 
13) 

2 FORI=OTOSsREADD*(I):NEXT 

3 FOR1=1T084s READVB*(I)s NEXT 

4 F0RI=lT0107sREADN0*(I)sNEXT 

5 F0RI=1T0107:READ0B*(I)sNEXT 

6 F0RI=1T0107:READOBX(I.0)sNEXT 

7 G0SUB209 

10 0PEN2.8.2,“0:STUFF,S,W" 

20 F0RI=0T05:PRINT#2,D*(I)sZ*s sNEXT 
30 F0RI=1T084:PRINT#2,VB*(I>:Z*s sNEXT 
40 F0RI=1T0107:PRINT#2,N0*(I> sZ*8 sNEXT 
50 F0RI=lT0107sPRINT#2,0B*(I)sZ*s sNEXT 
60 F0RI=lT0107sPRINT#2,0B*/.(I,0) sZ*s sNEXT 
70 F0RI=lT0107sPRINT#2.0B7. (1,1); Z*; s NEXT 


80 CL0SE2s END 

99 REM DD* STUFF 

100 DATA"WORTH"."SOUTH","EAST","WEST", "UP ","DOWN" 

109 REM VB* STUFF __ 

110 DATAGO,N,S,E,W,U,D,NORT,SOUT,EAST,WEST,UP,DOWN 

,LOAD,SAVE,HELP,SCOR,LOOK,REDE 

112 DATAINVE,EXAM,****,****,****.**** >EAT,DRIN,FEE 
D,THRO,TALK,ASK,FEE .YME,YZZY 

114 DATAABRA,OPEN,USE,LIGH,LAMP,BET,PUT,TAKE,DROP, 
ATTA,HIT,KILL,KICK,DEST,JUMP 

116 DATAWAVE,PUSH,MOVE.SHIF,ENTE,WATE,CLOS,OIL,BRE 
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A,LEVE,REMO,CUT,CHOP,CLIMB 

118 OATABUY,PAY,BRIB,ROW,GIVE,0FFE,8M0K,SWIM,SMAS, 

BLAS,FOLL,FIND,CL1M,READ,SNIF 

120 0ATA8MEL,CATC,TURN,QUIT,SHOR,LONG 

129 REM NO* STUFF 

130 DATATRID,COIN,RUG,CHES,JEWE,PEAR,SILV,NEST,EGG 
,VASE,ORB,SPIC,RING.SWOR 

132 DATANUG6,N,S,E,W,U,D,NORT,SOUT,EAST,WEST,UP,DO 
WN,PROG,EDDY,HELP,GRAT,KEY 

134 DATAFOOD,BOTT,BOTT,WATE,LAMP,LAMP,BATT,ON,OFF, 
BIRD,CAGE,ROD,SNAK,HAND,CLAM 

136 DATACHAS,FURT,ROCK,CRAC,PLAN,MACH,TROL,AXE,DOO 
R,LED6,HIGH,STIL,GIAN,DWAR 

138 DATACROW,DRAG,BOX,SPID,WEB,SESA,ROPE,DRIN,BART 
,BOAT,OARS,CREA,ASTR,PYRA,POOL 

140 DATAMONS,SWIM,BRAC,DYNA,BUIL,STRE,VALL,TRAP,TR 
EE,CHAM ,NOTE, AIR ,SHEL.TAB,WALL 

142 DATAWRIT,BRID,SPEC,MUD,CHAI,MUG,SHOR,STRU,TONY 
, MAGA,MOSS,INSE.AUST,PIRA 
144 DATAOIL,OIL 

149 REM OB* STUFF 

150 DATA"* JEWELLED TRIDENT !","A GOLD COIN!","*N 0 
RIENTAL RUG!" 

152 DATA'THE PIRATE'S CHEST!","4 SHINING JEWEL!"," 
* PEARL!","BARS OF SILVER! 

154 DATA".* NEST OF GOLDEN EGGS!","* PLOVER'S EGG!" 
,"* MING VASE!","* GOLDEN ORB! 

156 DATA"RARE SPICES!","* PLATINUM RING!","* JEWEL 
LED SWORD!","* GOLD NUGGET! 

157 DATA+,+ , + , + , + , + , + , + , + , + ,+ , + , + ,COMRADE EDDY, + , A 
STRONG GRATE,A KEY,SOME FOOD 

158 DATAAN EMPTY BOTTLE,A BOTTLE OF WATER,SOME WAT 
ER,AN OLD LAMP,A BLAZING LAMP 

160 DATASOME BATTERIES,+,+,A SINGING BIRD,A GILDED 
CAGE,A BLACK ROD 

162 DATAA HISSING SNAKE,+,A CLAM,+,+,+,+,A PLANT,A 
VENDING MACHINE 

164 DATAA HIDEOUS TROLL,AN AXE.+,+,+,+,AN ENORMOUS 
GIANT,A DWARF,A CROWBAR 

166 DATAA JOLLY GREEN DRAGON.A BOX,A BULBOUS SPIDE 
R,+,+,A ROPE,+,+,A BOAT 

168 DATASOME OARS,+,+,A CURIOUS PYRAMID,+,+,+,+,+, 

170 DATASEVERAL CHAIRS.SOME MUGS,+,+,+,A MAGAZINE, 

+.+,+,+,SOME OIL 

172 DATAA BOTTLE OF OIL 

199 REM OB'/m (I .0) STUFF 

200 DATA59,159,168,123,0,33,187,78,105,142,163,199 
,90,250,251,0,0,0,0 

202 DATAO,0,0,0,0,0,0,0,0,26,0,0,2,2,2,0,0,2,0,0,0 
,0,22,21,19,28,0,33,0,0,0,0 
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204 DATA55,66,0,0,0,0,0,0,0,0,61,0,173,0,0,0,119,0 
,0.199,186,0,0,203,0,0,0,0 

206 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
221,0,0,0,0,76.0 

209 REM 0B7.(I,1) STUFF 

210 F0RI=1T015:0B7. (1,1) =20: NEXT: F0RI = 16T0107:0B7. (I 
,1)=0:NEXT 

211 RETURN 

READY. 

Line 1 just dimensions all the necessary arrays, while lines 2 to 6 
read in all the appropriate data. Line 7 GOSUBs off to line 209, which 
sets the value of all the objects in the game. 

Some of the data might look a bit confusing at first, and in particular 
the rows of asterisks in line 112. Well, when playing adventures peo¬ 
ple will type in rude words, so when you come to enter the program 
yourself you can insert your own words there: I refuse to have any 
mucky words printed in one of my books! 

Some of the object descriptions might look a little peculiar, since 
they consist of nothing more than plus (' +') signs. This is just used 
when we don't want an object to have a description. For example, 
the words ON and OFF, while theoretically being objects, are not 
going to exist in any particular location. It would look a bit strange 
if you were told that you could see an OFF sitting on a rock, for 
example. 

Lines 10-80 then do the donkey work of filing everything away on 
;• to disk, and with that done we just have the map left to do. 


Map making 

Since the map is rather large (253 locations), and you've got to do 
some work yourself, I won't draw it out here. Each data statement 
represents one location, and as the REM statement in line 100 tells 
us, the data is stored in north, south, east, west, up, down format, 
in other words, the first number refers to which location you'll reach 
by going north, the second by going south, and so on. A zero in¬ 
dicates that you can't go in that particular direction, while a minus 
one indicates that you can go that way but it's going to be decided¬ 
ly fatal. 
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10 REM MAP DATA OH MY GOODNESS! 

20 DIMPX<253,5) 

25 FORI«1T0253s FORJ=0T05 
30 READA:P%(I.J)=A 
35 NEXTJ.I 

40 PRINT"EVERYTHING READ IN: PRESS SPACE TO MAKE F 
ILE ON DISK. 

42 F0RI=1T010:GETSP$:NEXT 
45 GETSP$:IFSP*<>" "THEN45 
50 0PEN2,8,2,"0:MAPI,S,W" 

55 F0RI=1T0125:F0RJ=0T05 
60 PRINT#2,P7.<I,J) 5 CHR$<13): 

65 NEXTJ,I 

66 CL0SE2:0PEN2,8,2,"0:MAP2,S,W" 

67 F0RI=126T0253:F0RJ=0T05 

68 PRINT#2,P7.(I,J);CHR*<13) j 

69 NEXTJ,I 

70 PRINT'TINISHED ... PHEW! 

80 END 

100 REMR00MS1-10, IN N,S,E,W,U,D FORMAT 

101 DATA2,0,5,6,0,0 

102 DATA0,0,0,3,0,0 

103 DATA5,6,2,4,0,0 

104 DATA5,6,7,3,5,6 

105 DAT AO,4,1,0,0,4 

106 DATA4,0,1,0,4,0 

107 DATAO,0,4,8,0,0 

108 DATA0,0,7,9,0,0 

109 DATAO,10,8,0,0,0 

110 DATA9,11,0,0,0,0 

111 DATA10,0,0,12,0,0:REM 11-20 NOW 

112 DATAO,0,11,13,0,0 

113 DATAO,0,12,14,0,0 

114 DATAO,O,13,15,0,0 

115 DATAO,0,14,16,0,0 

116 DATAO,0,15,0,0,0 

117 DATAO,18,0,0,0,0 

118 DATA17,19,0,0,0,0 

119 DATA18,26,20,24,0,0 

120 DATAO,0,21,19,0,0 

121 DATAO,0,22,20,0,0:REM 21-30 NOW 

122 DATAO,0,23,21,0,0 

123 DATAO,0,0,22,0,0 

124 DATAO,0,19,25,0,0 

125 DATAO,0,24,0,0,0 

126 DATA19,27,0,0,0,27 

127 DATA26,28,0,0,26,28 

128 DATA27,0,0,0,27,0 

129 DATAO,42,36,28,0,0 

130 DATAO,35,28,31,0,0 

131 DATAO,34,30,32,0,0:REM 31-40 NOW 
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132 DATAO, 33,31,0,0,0 

133 DATA32,0,34,0,0,0 

134 DATA31,0,35,33,0,0 

135 DATA30,35,35,34,35,35 

136 DATA0,41,37,29,0,0 

137 DATAO,40,38,36,0,0 

138 DATAO,39,0,37,0,0 

139 DATA3B,0,0,40,0,0 

140 DATA37,0,39,41,0,0 

141 DATA36,0,40,42,0,0sREM 41-50 NOW 

142 DATA29,43,41,0,0,0 

143 DATA42,-1,0,0,0,-lsREM -1 MEANS OBLIVION 

144 DATA-1,50,45,46,0,-1 

145 DATAO,51,0,44,0,0 

146 DATAO,49,44,47,0,0 

147 DATAO,48,46,0,0,0 

148 DATA47,0,49,0,0,0 

149 DATA46,0,50,48,0,0 

150 DATA44,52,51,49,50,50 

151 DATA51,0,0,50,0,0sREM 51-60 NOW 

152 DATA50,0,52,52,52,52 

153 DATA52,54,0,0,0,0 

154 DATA53,0,55,71,0,55 

155 DATAO,0,0,54,55,0 

156 DATAO,O,57,-1,0,-1 

157 DATAO,-1,58,56,0,-1 

158 DATAO,0,59,57,0,0 

159 DATAO,0,60,58,0,0 

160 DATA61,60,60,59,60,60 

161 DATA61,60,62,61,61,61:REM 61-70 NOW 

162 DATA61,67,61,62,62,62 

163 DATA63,66,63,62,62,62 

164 DATA64,65,63,62,62,62 
"*165 DATA64,70,65,62,63,63 

166 DATA63,69,66,66,67,62 

167 DATA62,68,62,62,62,62 

168 DATA64,68,69,67,67,62 

169 DATA66,68,69,62,62,64 

170 DATA65,60,69,69,69,60 

171 DATAO,0,54,72,0,0sREM71-80 NOW 

172 DATA82,81,71,73,0,0 

173 DATAO,0,72,74,0,0 

174 DATAO,0,73,75,0,0 

175 DATAO,79,74,76,0,79 

176 DATAO,0,0,0,0,0 

177 DATA76,78,79,0,0,78 

178 DATA77,0,80,0,77,0 

179 DATA75,80,0,77,75,0 

180 DATA79,0,0,78,0,0 

181 DATA72,83,0,0,0,0sREM 81-90 NOW 

182 DATAO,72.0,0,0,0 
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183 DATA81,84,0,0,0,0 

184 DATA83,91,87,85,0,0 

185 DATAO,92,84,86,0,0 

186 DATAO,93,0,86,0,0 

187 DAT AO,90,88,84,0,0 

188 DATA0,89,0,87,0,0 

189 DATA88,98,0,90,0,0 

190 DATA87,99,89,91,0,0 

191 DAT A84,84,90,92,0,0 

192 DATA85'95,90,93,0,0 

193 DATAB6,94,92,0,0,0 

194 DATA93,0,95,0,0,0 

195 DATA92,0,96,94,0,0 

196 DATA99,91,97,95,0,0 

197 DATA90,0,98,96,0,0 

198 DATA89,0,0,97,0,0 

199 DATA96,100,0,0,0,0 

200 DATA99,101,0,0,0,0sREM ROOM ONE HUNDRED 

201 DATA100,102,-1,-1,0,0 

202 DATA101,0,103,0,0,0 

203 DATA0,0,104,102,0,0 

204 DATAO,105,0,103,0,0 

205 DATA104,106,0,0,0.0 

206 DATA105,0,107,0,0,0 

207 DATAO,-1,108,106,0,-1 

208 DATA-1,110,109,107,0,-1 

209 DATAO,111,0,108,0,0 

210 DATA108,0,111,0,0,0 

211 DATA109,0,112,110,0,0 

212 DATAO,124,113,111,113,113 

213 DATA114,113,113,112,113,113 

214 DATA214,214,115,114,114,114 

215 DAT A115,122,116,114,116,114 

216 DATA116,123,115,115,115,115 

217 DATA117,117,117,116,117,117 

218 DATA117,118,115,115,115,115 

219 DATA118,119,119,119,119,119 

220 DATA120,120,119,120,120,120 

221 DATA121,121,120,122,122.122 

222 DATA115,121,115,115,115,115 

223 DATA118,120,118,122,123,113 

224 DATA112,125,0,0,0,125 

225 DATA124,0,0,0,124,0 

226 DATA125,126,0,0,125,0 

227 DATA126,0,0,128,0,0 

228 DATAO,-1,127,129,0,-1 

229 DATAO,0,128,0,0,0 

230 DATA131,132,-1,133,0,-1 

231 DATAO,130,0,134,0,0:REM 131 TO 140 NOW 

232 DATA130,0,0,135,0,0 

233 DATA134,135,130,136,0,0 


234 DATA-1,133,131,0,0,-1 

235 DATA133,0,132,0,0,0 

236 DATAO,0,133,137,0,0 

237 DATAO'O,136 f 138,0,0 

238 DATA139,140,137,142,0,0 

239 DATAO,138,0,141,0,0 

240 DATA138,167,0,143,0,0 

241 DATAO,142,139,146,0,0s REM 141 TO 150 NOW 

242 DATA141,143,138,145,0,0 

243 DATA142,0,140,144,0,0 

244 DATA145,0,143,166,0,0 

245 DATA146,144,142,0,0,0 

246 DATA147,145,141,0,0,0 

247 DATA-1,146,0,148,0,-1 

248 DATA-1,0,147,149,0,-1 

249 DATA0,0,148,150,0,0 

250 DATA0,0,149,0,0,0 

251 DATA153,150,0,152,0,0:REM 151 TO 160 NOW 

252 DATA154,0,151,0,0,0 

253 DATAO,151,0,154,0,0 

254 DATAO,152,153,155,0,0 

255 DATA0,0,154,156,0,0 

256 DATA0,0,155,157,0,0 

257 DATAO,158,156,0,0,0 

258 DATA157,159,0,0,0,0 

259 DATA158,160,0,0,0,0 

260 DATA159,161,0,0,0,0 

261 DATA160,0,162,0,0,0s REM 161 TO 170 

262 DATAO,0,163,161,0,0 

263 DATA0,0,164,162,0,0 

264 DATA0,0,165,163,0,0 

265 DATAO'O,166,164,0,0 

266 DATAO,0,0,165,0,0 

267 DATA140,168,0,0,0,0 

268 DATA167,0,0,0,0,0 

269 DATA168,170,0,0,0,0 

270 DATA169,171,0,0,0,0 

271 DATA170,174,172,0,0,0a REM 171 TO 180 

272 DATAO,0,173,171,0,0 

273 DATAO,0,0,172,0,0 

274 DATA171,0,0,0,0,0 

275 DATA174,176,0,0,0,0 

276 DATA175,0,0,0,0,0 

277 DATAO,184,178,176,0,0 

278 DATAO,185,0,177,0,-1 

279 DATAO,182,176.180,0,0 

280 DATAO,181,179,-1,0,-1 

281 DAT A180,186,182,0,0,0:REM 181 TO 190 

282 DATA179,187,183,181,0,0 

283 DATA188,176,182.184,183.183 

284 DATA177,189,185,183,0.0 
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285 DATA178.190,0.184,0,0 

286 DATA181,0,187,0,0,0 

287 DATA182,0,188,186,0,0 

288 DATA183,0,189,187,0,0 

289 DATA184,0,190,188,0,0 

290 DATA185,-1,0,189,0,-1 

291 DATAO,192,0,0,0,0s REM 191 TO 200 

292 DATA191,0,193,0,0,0 

293 DATAO,0,0,192,0,0 

294 DATA195,0,202,193,0,0 

295 DATA196,194,0,0,0,0 

296 DATA197,195,0,0,0,0 

297 DATA19B,196,0,0,0,0 

298 DATA-1.197,0,0,0,-1 

299 DATAO.200,0,0,0.0 

300 DATA199,201,0,0,0,0 

301 DATA200,202,0,0,0,0s REM 201 TO 210 

302 DATA201,0,206,194,0,0 

303 DATAO,204.-1,0,0,-1 

304 DATA203,205,-1,0,0,-1 

305 DATA204,206,0,0,0,0 

306 DATA205,0,0,202,0,0 

307 DATA207,209,210,206,207,207 

308 DATA206,212,209,208,208.208 

309 DATA207,213,211,208,209,209 

310 DATA210,211,210,207,210,210 

311 DATA210,214,211,209,211,21Is REM 211 TO 220 NOW 

312 DATA208,212,213,212,212,212 

313 DATA209,213,214,212,213,213 

314 DATA211,215,214,213,214,214 

315 DATA214,216,215,215,215,215 

316 DATA215,0,0,0,0,0 

317 DATA-1,0,0,218,0,-1 

318 DATAO,0,217,219,0,0 

319 DATAO,0,218,220,0.0 

320 DATAO,0,219,221,0,0 

321 DATAO,0,220,0,0,0sREM 221 TO 230 

322 DATA223,224,221,226,0.0 

323 DATAO,222,0,225,0.0 

324 DATA222,0,0,227,0,0 

325 DATAO,226,223,0,0.0 

326 DATA225,227,222,-1,0,-1 

327 DATA226,0,224,0,0,0 

328 DATAO,0,226,229,0,-1 

329 DATA231,230,-1,0,0,-1 

330 DATA229,0,0,0,0,0 

331 DATA232,229,0,0,0,0s REM 231 TO 240 

332 DATA233,231,0,0,0,0 

333 DATAO.0.232,0,0.0 

334 DATA236,234,234,234.234,234 

335 DATA234,234,234,238,234,234 
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336 DATA235,234,234,234,234,234 

337 DATA234,239,234,234,234,234 

338 DATA234,237,234,234,234,234 

339 DATA234,234.234,240,234,234 

340 DATA241,234,234,234,234,234 

341 DATA242.234,234,234,234,234:REM 241 TO 2S0! 

342 DATA234,234,234,243,234,234 

343 DATA-1,0,242,0,0,-1 

344 DATAO,-1,0,245,0,-1 

345 DATA246,0,244,0,0,0 

346 DATA247,245,0,0,0,0 

347 DATA248,246,0,0,0,0 

348 DATAO,247,0,0,0,0 

349 DATAO,248,0,0,0,0 

350 DATAO,0,249,0,0,0 

351 DATAO.249,-1,0,0,-1 

352 DATA253,253,253,253,253,253 

353 DATA252,252,252,252,252,252 

READY. 

Lines up to and including 35 dimension an array and read all the 
data in. Then, a rare consideration allows you to press the space 
bar before everything is filed on to disk. For some reason I split the 
file up into two separate parts when writing this program, and that 
is why lines 45 to 69 successively write MAPI and MAP2 to disk. 


And that, dear reader, is the entire program! 


Conclusion 

It's been a long hard slog typing it all in, although you might have 
cheated and sent off for the disk: I wouldn't blame you! 

'Enormous Cave' started off as just a bit of fun, and graduated into 
a complete adventure that should (I hope) take a long time to solve. 
I also hope that it will be enjoyable to play: I know it was enjoyable 
writing it. That is the beauty of working to a system when writing 
adventure games. A lot of the hard work is already done for you, 
and once you've got the framework for various verbs, for filing data, 
for generating maps, and so on, it does make producing adventures 
a lot of fun. 

With a compiled version you'll see just how fast the program can 
become, and how we can now produce enormous adventures 
without really using any of the complex procedures discussed in 
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Chapters 2, 6 and 7. Imagine what, with a little thought, ingenuity 
and machine code, you could do. 

Just before writing this chapter I read in one of the computer 
magazines that a couple of manufacturers think that adventures are 
going to become very, very big news, with the advent of microcom¬ 
puters with built-in disk drives. 

I look forward to seeing you prove them right. 
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10 

A Compiler 


Introduction 


Don't look at the listing yet, you'll only get alarmed! 

First of all, what is a compiler, and why should you want to type 
this enormous listing in at all? A compiler, which in itself is nothing 
more than an ordinary machine-code program, takes a clean (i.e. 
no machine code) Basic program and converts it into a form of 
machine code: pseudo-code, as it is often called. When this new 
program is run, it will operate at a much faster pace than in its original 
Basic form. It won't run as fast as a program originally written in 
machine code, but it is certainly a vast improvement over poor old 
Basic. 

Thus you can do all the development work on your adventures in 
Basic, and then when you're satisfied that the program is working 
correctly you can compile it, to produce a program that operates 
at a very fast rate indeed. However, you must make sure that your 
program is perfect and contains no errors: you won't be able to 
change it once you've compiled it. Instead, any mistakes must be 
corrected in the original Basic version and then the whole program 
compiled once more. 

The compiler presented here will work with just about everything 
in Basic, bar one command. That is the TAB command, so if any 
of your programs to be compiled contain a TAB statement, replace 
that with the appropriate number of cursor rights. 

You'll need to have a disk drive to operate it, and when the pro¬ 
gram is run it first of all checks that there's a disk in the drive before 
asking for the file name of the program to be compiled. It's pro¬ 
bably best to compile one program per disk, as the compiler 
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generates a number of files on the disk as it's working. Since the 
program originally came from an Austrian source, one or two error 
messages meant nothing to me when I was amending the program, 
so if you come across anything being printed out in Austrian you 
can probably assume that something has gone sadly wrong. 


Now to the onerous task of typing the listing in. 

Compiler listing 


B* 


PC 

SR 

AC 

XR 

YR 

SP 




.5 97FE 

30 

00 

00 

00 

F6 




■ 

.s 0800 

00 

1A 

08 

01 

00 

9E 

32 

30 

.:0808 

37 

36 

20 

48 

45 

4C 

4C 

4F 

• s 0810 

20 

54 

48 

45 

52 

45 

20 

56 

.30818 

31 

00 

00 

00 

4C 

41 

OB 

4C 

.10820 

B5 

OC 

66 

09 

76 

09 

3B 

16 

.30828 

24 

14 

17 

14 

CO 

14 

C3 

14 

.80830 

32 

OB 

55 

OB 

EE 

11 

15 

12 

.30838 

73 

15 

66 

15 

48 

15 

48 

15 

.s 0840 

80 

15 

4F 

OB 

A9 

15 

FF 

10 

.30848 

EE 

10 

DC 

10 

CD 

10 

CD 

10 

.8 0850 

26 

11 

CD 

10 

CD 

10 

CD 

10 

.s 0858 

CD 

10 

CD 

10 

CD 

10 

CD 

10 

.s 0860 

CD 

10 

IE 

11 

2D 

11 

33 

11 

.s 0868 

CD 

10 

Cl 

10 

47 

11 

C2 

11 

.8 0870 

C2 

11 

BA 

11 

C2 

15 

F5 

15 

.s 0878 

90 

15 

BE 

OC 

AB 

12 

6A 

12 

.30880 

6A 

12 

6A 

12 

D9 

12 

BB 

12 

.30888 

BB 

12 

EA 

12 

6A 

12 

EA 

12 

.s 0890 

E2 

12 

62 

11 

62 

11 

57 

11 

.30898 

AB 

OC 

2B 

12 

2B 

12 

EE 

11 

.s 08A0 

EE 

11 

AE 

OC 

B1 

OC 

1A 

13 

.s 08A8 

55 

13 

55 

13 

25 

13 

DO 

13 

.s 08B0 

25 

13 

25 

13 

55 

13 

55 

13 

• s 08B8 

05 

13 

OE 

13 

08 

13 

11 

13 

.sOBCO 

D9 

16 

DE 

16 

DA 

16 

46 

17 

.s 08C8 

FA 

12 

7B 

17 

7B 

17 

7B 

17 

.30800 

7E 

17 

7B 

17 

7B 

17 

7B 

17 

.s 0808 

7B 

17 

7B 

17 

7B 

17 

7B 

17 

.s 08E0 

78 

17 

7B 

17 

7B 

17 

81 

17 

.s 08E8 

27 

03 

00 

00 

10 

E8 

64 

OA 

.8 08F0 

6A 

53 

2B 

12 

7B 

B8 

B8 

BA 

.8 08F8 

BB 

BF 

AO 

01 

2C 

AO 

02 

A9 

.80900 

20 

24 

64 

10 

05 

20 

72 

OC 

.s 0908 

A9 

2D 

99 

FE 

00 

84 

71 

A2 
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.10910 00 86 62 
.:0918 65 F0 46 
.:0920 85 22 BD 
.:0928 FF 38 C8 
.10930 65 AS 64 
.10938 FI A5 65 
.90940 64 65 22 
.:0948 05 98 FO 
.90950 30 A4 71 
.90958 E8 EO 04 
.90960 65 09 30 
.90968 10 06 20 
.90970 20 B4 BF 
.90978 30 03 20 
.90980 FF 85 64 
.90988 65 4C BE 
.90990 18 71 64 
.90998 20 75 B4 
.9 09A0 DO 05 A5 
.9 09A8 02 B1 50 
.9 09B0 85 22 88 
.9 09BB A4 70 DO 
.9 09C0 B6 4C CA 
.9 09C8 A4 65 DO 
.909D0 6F A4 70 
.9 09D8 84 6D AO 
.9 09E0 FO 08 AO 
.9 09E8 A6 61 84 
.9 09F0 CA DO 04 
.g 09F8 6C D1 62 
.:OAOO 02 A9 04 
.9 0A08 FF AA 4C 
. 9 0A10 7F 25 6A 
.90A1B 00 20 5B 
.9 0A20 01 38 8A 
.9 0A28 90 58 CO 
.9 0A30 2F AO 00 
.:0A3B 6B 84 6E 
.:0A40 A5 6C DO 
.9 0A48 FO 16 84 
.9 0A50 6D 2A 10 
. 9 0A58 85 6B 86 
.9 0A60 AS OE 10 
.9 0A6B 3C CO 07 
.9 0A70 85 55 B9 
.9 0A78 6E 45 66 
.9 0A80 55 00 E4 
.9 0A88 DE A5 3C 
.9 0A90 13 OB 4C 
.9 0A98 8A 10 C5 


A5 64 DO 06 A5 
A2 02 BD E8 08 
EC 08 85 23 AO 
AS 65 E5 23 85 
E5 22 85 64 BO 

65 23 85 65 A5 
85 64 A5 62 DO 
OC E6 62 98 09 
99 FF 00 E6 71 
90 CO A4 71 A5 
4C 04 BF A5 OE 
72 OC 4C BE OC 
4C BE OC A5 OE 
IB 10 A5 64 49 
A5 65 49 FF 85 
OC AO 00 B1 6F 
90 03 4C 58 B6 
20 7A B6 A4 51 
50 20 DB B6 AO 
85 23 88 B1 50 
B1 50 20 8C B6 
05 A5 6F 20 DB 
B4 CO 07 BO C4 
03 20 B4 OB A5 
20 AA B6 86 6C 
02 AA 38 E5 61 
04 90 04 AO 01 

66 AO FF E8 CB 
A5 66 10 OC B1 
FO F2 A9 01 BO 
25 3C FO 02 A9 
63 OE A5 6E 09 
B5 6A A9 69 AO 
BC 18 AA EB DO 
2A 10 DD CO OA 
OC BO 76 BA 10 

84 69 84 6A 84 
A2 90 20 FA OA 
08 A2 88 AS 6D 
6 D 30 06 CA 06 
FA 85 6A A5 6D 
69 84 6C 84 6D 
03 20 85 10 A4 
90 AO B9 E9 08 
EE 08 85 56 A5 

85 6F A5 61 6C 
OE DO 12 8A 10 
C9 07 BO 06 20 
1C OA 4C C5 OB 
20 AE OF A5 OE 
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lOAAO 10 8F 30 
sOAAB CE OA A5 
sOABO 10 46 3C 
3 0AB8 64 85 64 
sOACO OA A5 6C 
s 0AC8 6D 05 65 
sOADO 30 06 A9 
s 0AD8 38 E9 90 
8 OAEO AA A5 6A 
s 0AE8 FA 06 6E 
sOAFO 6C A5 6B 
8 0AF8 6D 60 A5 
sOBOO A5 6C 49 
8 0B08 49 FF 85 
8 0B10 E6 6C 60 
s 0B18 64 DO 06 
s 0B20 OB CA A5 
8 0B28 BO 02 A2 
s 0B30 90 FA 20 
8 0B38 50 A5 3A 
s 0B40 05 20 96 
s 0B48 17 BE 85 
3 0B50 A5 OB 4C 
s 0B58 39 A5 51 
s 0B60 A2 05 BD 
s 0B68 10 F8 A6 
s 0B70 E4 30 DO 
:0B7B AO 01 A9 
s 0B80 06 DO F9 
s 0B88 E8 BO El 
s 0B90 33 84 34 
8 0B98 68 A2 F8 
sOBAO 00 85 3B 
8 0BA8 85 41 AD 
sOBBO A4 65 DO 
s 0BB8 B6 A6 62 
sOBCO C3 B6 A5 
s 0BC8 BO 45 38 
sOBDO A5 6C E5 
s 0BD8 A5 6D 65 
s OBEO 64 85 64 
8 0BE8 A2 00 86 
8 OBFO 90 05 C6 
s 0BF8 00 85 OE 
sOCOO A5 62 05 
s 0C08 30 ED A5 
sOCIO 64 45 6C 
sOClB 03 20 72 
8 0C20 64 A6 65 
s 0C28 6C 85 6C 


E5 8A 30 03 20 
OE 30 03 20 IB 
BO OC A5 6C 25 
A5 6D 25 65 90 
05 64 85 64 A5 
85 65 60 A5 69 
00 85 6B FO 11 
30 03 4C 48 B2 
4A 66 6B E8 DO 
90 02 49 FF 85 
90 02 49 FF 85 
6 C 10 14 85 6E 
FF 85 6C A5 6D 
6 D E6 6D DO 02 
A2 00 A5 6C C5 
A5 6D C5 65 FO 
6 C 45 64 30 06 
01 8A 60 BO FA 

60 OB A5 39 85 
85 51 AO 06 DO 
OB AO OA B9 84 
17 4C 79 15 20 
9E OC A5 50 85 
85 3A 4C 9E OC 

84 17 95 2D CA 
2E 86 60 85 5F 
04 C5 2F FO 13 
00 CB 91 5F CO 
98 65 5F 90 E6 
A5 37 A4 38 85 
20 E7 FF 68 AB 
9A 48 98 48 A9 

85 11 AD 8C 17 
8 D 17 85 42 60 
OE A5 64 20 DB 
A4 63 A5 61 4C 

61 60 FO 10 4A 
A5 6D E5 65 AA 

64 4C El OB 18 

65 AA A5 6C 65 

86 65 70 01 60 

62 86 63 86 66 

66 20 72 OC A9 
85 70 4C DB BC 

63 DO FI A5 64 
66 30 64 60 A5 
85 66 A5 64 10 
OC 20 FA OA A5 
C5 6C 90 OA A4 
A5 6D 86 6D AA 
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0C30 

98 

85 

28 

86 

29 

A9 

00 

85 


0C38 

62 

85 

63 

85 

64 

85 

65 

85 


0C40 

6A 

85 

6B 

A5 

28 

05 

29 

FO 


0C48 

B7 

46 

28 

66 

29 

90 

19 

18 


0C50 

A5 

65 

65 

6D 

85 

65 

A5 

64 


0C58 

65 

6C 

85 

64 

A5 

63 

65 

6B 


0C60 

85 

63 

A5 

62 

65 

6A 

85 

62 

. 

0C68 

06 

6D 

26 

6C 

26 

6B 

26 

6A 


0C70 

90 

D1 

A5 

64 

49 

FF 

85 

64 


0C78 

A5 

65 

49 

FF 

85 

65 

E6 

65 


0C80 

DO 

02 

E6 

64 

60 

A5 

39 

A6 


0C88 

3A 

85 

7A 

86 

7B 

85 

3D 

86 


0C90 

3E 

4C 

El 

A7 

68 

68 

A5 

7A 


0C98 

A6 

7B 

85 

39 

86 

3A 

24 

11 


OCAO 

50 

18 

A5 

91 

C9 

7F 

DO 

12 


0CA8 

20 

B7 

AB 

38 

BO 

04 

20 

44 


OCBO 

A6 

18 

20 

41 

AB 

68 

68 

20 


0CB8 

68 

A8 

AO 

00 

84 

3B 

E6 

39 


OCCO 

DO 

OB 

FO 

07 

16 

65 

39 

85 


0CC8 

39 

90 

02 

E6 

3A 

AO 

00 

B1 


OCDO 

39 

85 

3C 

30 

47 

FO 

AE 

C9 


0CD8 

OE 

90 

10 

OA 

AA 

BD 

06 

08 


OCEO 

85 

55 

BD 

07 

08 

85 

56 

C8 


0CE8 

6C 

55 

00 

A8 

68 

AA 

30 

OE 


OCFO 

DO 

18 

68 

85 

6E 

68 

85 

69 


0CF8 

68 

85 

6A 

68 

85 

6B 

68 

85 


ODOO 

6C 

68 

85 

6D 

20 

26 

OA 

4C 


0D08 

BE 

OC 

68 

85 

6F 

68 

85 

70 


ODIO 

20 

C4 

09 

4C 

BE 

OC 

20 

EO 


0D18 

A9 

4C 

9E 

OC 

C9 

E6 

BO 

OA 


0D20 

24 

3C 

50 

08 

A6 

OE 

86 

OC 


0D28 

70 

27 

FO 

EA 

A6 

3B 

FO 

IF 


0D30 

A5 

OE 

DO 

03 
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•:3B08 23 C5 25 
.:3B10 24 DO DD 
.:3B18 C5 27 DO 
.:3B20 91 2D C8 
.:3B2B A2 02 20 
.:3B30 AO 11 91 
. J 3B38 03 20 C9 
.J3B40 20 D2 FF 
.:3B48 00 00 00 
.:3B50 00 00 00 
•:3B58 00 00 00 
.:3B60 00 00 C3 

• 13B68 00 C3 B4 
.:3B70 5A 80 00 
•:3B78 B5 00 00 
.:3B80 00 00 00 
.:3B88 00 00 00 
.:3B90 00 00 00 
.:3B98 00 00 D1 
.:3BA0 00 51 00 
.:3BA8 59 80 00 
.:3BB0 80 00 00 
•:3BB8 00 00 00 
.:3BC0 00 00 00 
.:3BC8 00 00 00 
.13BD0 00 00 41 
.:3BD8 00 42 B1 
•:3BE0 58 31 00 
.:3BE8 32 00 00 
.:3BF0 00 00 00 
.:3BF8 00 00 00 


91 2D 60 A8 B1 
30 04 C9 20 FO 
91 2D C9 3A FO 
00 AO 25 91 2D 
AO 2D B1 2D 85 
2D 85 23 A2 02 
AO 00 84 90 20 
22 DO 08 CO 01 
04 BO 03 C8 DO 
26 91 2D 4C CC 
AO 33 91 2D C8 
B1 2F 18 65 2F 
B1 2F 65 30 85 
B1 2D 85 25 C8 
24 AO 3A B1 2D 
B1 2D 85 27 AO 
84 23 A9 07 2C 
65 5F 85 5F 90 
A5 26 D1 5F FO 
DO 02 E6 23 A5 
DO E3 A5 22 C5 
60 CB B1 5F 88 
E5 AO 33 AS 23 
A5 22 91 2D 60 
C6 FF 20 E4 FF 
2D 4C CC FF A2 
FF AO 11 B1 2D 
4C CC FF 5A 00 
00 00 C3 80 00 
00 C3 B1 00 00 
C3 B2 00 00 00 
B3 00 00 00 00 
00 00 00 00 00 
00 00 00 00 C3 
00 00 00 C3 B6 
00 00 C3 B7 00 
00 CD 80 00 00 
CE 80 00 00 00 
80 00 00 00 00 
00 00 00 00 00 
00 00 00 00 58 
00 00 00 D4 80 
00 00 D4 B3 00 
00 41 B2 00 00 
41 80 00 00 00 
B1 00 00 00 00 
00 00 00 00 00 
00 00 00 00 58 
00 00 00 58 33 
00 00 58 34 00 
00 D4 B2 00 00 
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.:3C00 00 00 00 
.:3C08 00 00 C5 
.:3C10 00 58 30 
.s3C18 49 80 00 
.:3C20 31 00 00 
.s 3C2B 00 00 00 
.:3C30 00 00 00 
.:3C38 00 00 00 
.:3C40 00 00 43 
.:3C48 00 58 35 
.:3C50 58 B1 00 
.:3C5B B2 00 00 
.s 3C60 00 00 00 
.:3C68 00 00 00 
.:3C70 00 00 00 
.:3C78 00 00 CA 
.i3C80 00 46 41 
.:3C88 45 B1 00 
.:3C90 80 00 00 
.:3C98 00 00 00 
.i3CA0 00 00 00 
. s 3CA8 00 00 00 
.13CB0 00 00 CA 
.3 3CBB 00 46 80 
. s 3CC0 47 31 00 
.s 3CCB 00 00 00 
.s 3CD0 00 00 00 
.s 3CD8 00 00 00 
.s 3CE0 00 00 00 
.:3CE8 00 00 46 
.:3CF0 00 C6 B1 
.:3CFB 46 34 00 
.s 3D00 B3 00 00 
.:3D08 00 00 00 
.:3D10 00 00 00 
.:3D18 00 00 00 
.s 3D20 00 00 49 
.:3D28 00 49 33 
.s3030 49 34 00 
.:3038 B2 00 00 
.:3D40 00 00 00 
.:3048 00 00 00 
.:3D50 00 00 00 
.:3058 00 00 D1 
.:3D60 00 01 B1 
.i3D68 D4 B1 00 
.:3D70 B7 00 00 
.93078 00 00 00 
.93080 00 00 00 
.9 3D88 00 00 00 

.9 3D90 00 00 CC 


04 B8 00 00 00 
80 00 00 00 00 
00 00 00 00 00 
00 00 00 00 42 
00 00 00 C2 B5 
00 00 C2 B3 00 
00 42 34 00 00 
49 00 00 00 00 
32 00 00 00 00 
00 00 00 00 00 
00 00 00 00 CB 
00 00 00 45 80 
00 00 4A 80 00 
00 C5 B2 00 00 
CC B2 00 00 00 
80 00 00 00 00 
00 00 00 00 00 
00 00 00 00 CB 
00 00 00 CB B1 
00 00 4B 80 00 
00 CB B3 00 00 

48 31 00 00 00 
B1 00 00 00 00 
00 00 00 00 00 
00 00 00 00 46 
00 00 00 46 31 
00 00 4A B1 00 
00 C2 B2 00 00 
D9 80 00 00 00 
35 00 00 00 00 
00 00 00 00 00 
00 00 00 00 CC 
00 00 00 46 58 
00 00 46 38 00 
00 49 31 00 00 

49 32 00 00 00 
30 00 00 00 00 
00 00 00 00 00 
00 00 00 00 C6 
00 00 00 47 00 
00 00 48 00 00 
00 46 36 00 00 
46 37 00 00 00 
B2 00 00 00 00 
00 00 00 00 00 
00 00 00 00 D4 
00 00 00 43 00 
00 00 42 80 00 
00 CE B1 00 00 
CE B2 00 00 00 
80 00 00 00 00 
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s 3D98 

OO 

58 

36 

OO 

OO 

OO 

OO 

00 

s 3DA0 

D4 

B4 

OO 

00 

OO 

OO 

00 

D4 

8 3DA8 

B5 

OO 

OO 

OO 

OO 

OO 

41 

00 

s 3DB0 

OO 

OO 

OO 

OO 

OO 

41 

B5 

00 

s 3DB8 

OO 

OO 

OO 

OO 

41 

B6 

00 

00 

s 3DC0 

OO 

OO 

OO 

54 

80 

OO 

OO 

00 

8 3DC8 

OO 

OO 

CF 

80 

OO 

OO 

OO 

00 

s 3DD0 

OO 

FF 

45 

73 

OD 

CD 

FF 

3A 

8 3DD8 

IF 

FC 

OO 

OO 

B1 

AD 

00 

00 

s 3DE0 

29 

OO 

OO 

OO 

OO 

OO 

OO 

00 

8 3DE8 

OO 

OO 

OO 

OO 

OO 

OO 

00 

00 

s 3DF0 

OO 

OO 

OO 

OO 

OO 

OO 

OO 

00 

s 3DF8 

OO 

OO 

OO 

OO 

OO 

OO 

00 

00 

s 3E00 

B4 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

8 3E08 

FF 

FF 

FF 

FF 

7F 

FF 

FF 

FF 

8 3E10 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

8 3E18 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

s 3E20 

OO 

OO 

OO 

OO 

OO 

OO 

00 

00 


B27D 86 71 STX *71 

.? 

.? 

.? 


As you can see, this has been presented as a memory dump. A Basic 
loader would just take up too much space, and a disassembly would 
be meaningless since it is itself a compiled program. As we men¬ 
tioned earlier, compilers produce pseudo-code, not true machine 
code. 

So, you'll need a monitor of some kind when it comes round to typ¬ 
ing the thing in. This monitor (or assembler) must not occupy any 
memory from locations $0800 to $3E20: this is the area that the com¬ 
piler uses. Since there are 13,856 numbers to type in, this is going 
to take some time, and I suggest that you type in 1000 bytes per 
day, or evening, and continually re-save your progress as you go 
along. That way, at the end of a fortnight, you'll have a working 
compiler! 

To assist you in your typing, the following checksum program checks 
every 100 bytes for any errors. At the end of the first day, run this 
short program (in direct mode: don't enter it as a program listing), 
and if any of the values returned disagree, then you know roughly 
where the error lies. 


305 



A = 0: B = 0:FORI = 0TO9:FORJ = 0TO99: A = A + PEEKI2048 +1*1 
00 +J):NEXTJ:?A;I: B = B + A:A=0:NEXTI:?B 

If you've correctly typed in all 1000 bytes, the following series of 
values should appear on the screen: 

7043 0 
7515 1 
9564 2 
11161 3 
12128 4 
11096 5 
9479 6 
11830 7 
10742 8 
12367 9 
102925 

If, for example, the first number reported is 7033 instead of 7043, 
then you'll know that somewhere in the first 100 bytes you've made 
an error (or two!) Thus we can selectively check blocks of 100 bytes 
to try to eliminate any errors that might have occurred. Once 
everything is correct, save the first day's progress. Then, on day 
two, type in the next 1000 bytes of data. The checksum program 
for this second 1000 bytes now changes to become: 

A = 0:B = 0:FORI = 0TO9: FORJ = 0TO99: A = A + PEEKI3048 +1*1 
00 +J):NEXTJ:?A;I: B = B + A:A = 0:NEXTI:?B 

The values on the screen should now be: 

10957 0 
11305 1 
9960 2 
9948 3 
9552 4 
10368 5 
11026 6 
10897 7 
10003 8 
10831 9 
104847 

This again checks every 100 bytes, and the last figure is the total 
for all 100 bytes put together. 
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And so we proceed for every 1000 bytes, with the checksum pro¬ 
gram successively PEEKing at locations 4048,5048,6048 and so on 
up to and including 15048. The following twelve tables are what you 
should see on your screen after running each individual checksum 
program. 


Program number 3 

10329 0 
8929 1 
9530 2 
8427 3 
10554 4 
9403 5 
10260 6 
11907 7 
10711 8 
10257 9 
100307 


Program number 5 

10181 0 
7594 1 
6874 2 
10677 3 
10488 4 
10423 5 
6911 6 
7816 7 
8764 8 
8859 9 
88587 


Program number 4 

10220 0 
9806 1 
9626 2 
9439 3 
11406 4 
10796 5 
10818 6 
10940 7 
10245 8 
9370 9 
102666 


Program number 6 

9176 0 
8387 1 
9259 2 
8810 3 
8004 4 
9311 5 
8704 6 
8394 7 
8415 8 
8360 9 
86820 
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Program number 7 

7825 0 
9713 1 
9411 2 
8508 3 
7828 4 
9225 5 
7733 6 
8614 7 
8162 8 
8024 9 
85043 

Program number 9 

9191 0 
8257 1 
7900 2 
8495 3 
9215 4 
10067 5 
9743 6 
9198 7 
9245 8 
9831 9 
91142 

Program number 11 

9672 0 
9228 1 
9459 2 
8797 3 
9587 4 
9715 5 
8935 6 
8682 7 
9283 8 
8949 9 
92307 


Program number 8 

8061 0 
8840 1 
7645 2 
8377 3 
8899 4 
9706 5 
9186 6 
9451 7 
8111 8 
9774 9 
88050 


Program number 10 

9612 0 
9104 1 
7756 2 
9844 3 
9096 4 
9593 5 
9099 6 
9614 7 
9757 8 
9315 9 
92790 

Program number 12 

8208 0 
10912 1 
8777 2 
9277 3 
10018 4 
8582 5 
7369 6 
7144 7 
7674 8 
9190 9 
87151 
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Program number 13 


And finally, program number 14! 


8437 0 
8094 1 
8329 2 
10847 3 
11339 4 
9653 5 
10169 6 
11830 7 
9181 8 
11705 9 
99584 


11539 0 
7345 1 
3251 2 
3368 3 
4039 4 
2809 5 
2956 6 
4775 7 
12302 8 
13070 9 
65454 


In fact, the last day's typing only goes from memory locations 15048 
to 15904, some 856 bytes, so you'd be advised to check the last 
56 bytes by yourself, and not really use the last two entries in table 
14 at all. 

Once you've finished your marathon typing session, that's it. A work¬ 
ing compiler that will make your adventures run at extremely high 
speeds. As an experiment, I compiled the 'Enormous Cave' adven¬ 
ture in Chapter 9, to see what difference it would make - 
'phenomenal' is the only word for it. In the original Basic program 
you can see the room descriptions being printed on to the screen 
at a relatively slow pace: reading speed, really. In the compiled ver¬ 
sion it just runs like dynamite! 

A bit like comparing me and Steve Cram, I suppose. As an athlete 
he's like a compiled version of myself: ten times faster! 


Conclusion 

It is a lot of typing, I know, and you're bound to make mistakes typ¬ 
ing the whole thing in. Use the checksum programs wisely, and at 
the end of fourteen days you'll have saved yourself upwards of £50 
for what is quite a decent compiler. 

After you've compiled your adventure, it is easy to make 'custom' 
listings of the finished program. At the moment, a listing of the com¬ 
piler reads: 

1 SYS2076 HELLO THERE VI 
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This you can easily change to read: 

1 SYS2076 MY ADVENTURE 1 

or whatever, by using the standard Commodore editing functions. 
Just be careful that you keep the line length exactly the same (the 
program won't run otherwise), and ensure that you leave a space 
after the SYS2076. Then, you can load and save your compiled pro¬ 
gram just like a normal Basic one. 

To run it, LOAD "COMPILER",8,1 and RUN 

It will ask you for a file name, so enter the name of a file on disk, 
and then go and make a cup of tea or something: it does take a 
while. But the wait is well worth it. 

When it's finished, there'll be a copy of the program on disk, 
prefixed by the symbols C/. Just load and run it, and stand back 
and be amazed. 

Then all you need is a turbo loader (for tape or disk products) and 
away you go! There are many on the market at the moment, and 
any one of them will help to give your finished adventures that 
'polished' look. 

If you're going to submit any programs based on the ideas, utilities 
and programming lessons in this book, an acknowledgment would 
be nice. Have fun. 


310 


11 

Role-playing Games 


In the previous chapters we've been talking about the creation of 
adventure games, games where one character is pitted against a 
selection of problems and, through his own ingenuity, has to over¬ 
come them. 

Admittedly 'Enormous Cave' featured Eddy the underground dweller, 
a pirate and some dwarves, but they were all under the control of 
the program and either would, or wouldn't, do certain things. In other 
words, the dwarf might be six feet tall and weigh fourteen stone, 
or five feet two inches and seven stone, but he'd still behave in ex¬ 
actly the same manner. No allowance is made for the physical or 
mental attributes of the characters involved. 

This is where role-playing games come in. To cover the subject ful¬ 
ly would require a book all of its own, but in this chapter I hope 
to nudge you gently in the right direction and whet your appetite 
for more. 


Some background 

'Dungeons and Dragons' was the forerunner of all role-playing 
games, and led on to others such as 'Tunnels and Trolls', 'Traveller', 
and many more. In these games there is no pre-determined outcome 
as there is in the more conventional adventure games. There is no 
straightforward conclusion, although there might be plenty of 
treasures to collect, and the games never really end. Since there's 
no goal to the game, the only point in playing it is playing it, really, 
and to carry on developing the character that you have created. 

The only difference between computer role-playing games and their 
earlier forefathers is, literally, the computer. Whereas before you 
would have a referee sorting everything out, consulting manuals and 
charts and generally taking a long time about things, now you have 
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the computer doing all that, leaving you, the player, to concentrate 
on the game. 

Admittedly it is rather different to wander (in real-life) into a bedroom 
and pretend it is the lair of some hideous monster than it is to be 
told on the screen 'YOU ARE IN THE LAIR OF A HIDEOUS 
MONSTER'. However, the computer can print out much lengthier 
descriptions than that, and it can also add some graphics to illustrate 
the location. Games like 'The Temple of Apshai' cheated somewhat, 
in that the graphics appeared on the screen and the words appeared 
in an accompanying manual! Whichever method you prefer is up 
to you, although, I have said before, I would always prefer a lengthy 
text description on the screen rather than any amount of illustrations. 

What really sets role-playing games apart, though, is the number 
of characters involved in them. Instead of just you against a host 
of problems, there may be many characters roaming about inside 
the game trying to do the same things as you. Some of those 
characters may be more experienced than you, and may spend a 
lot of time moving objects about and generally getting in the way. 
On the other hand they may just be starting on the quest, and you 
can then help or hinder them as you see fit. You discover who your 
friends are in this type of game! 

However, if it's just you in front of the computer in the wee small 
hours of the morning, the other characters in this universe will be 
beyond your control, and you'll just have to act according to your 
personal attributes, which are determined at the start of the game. 
So, how do we go about setting up these attributes, and what does 
each one of the (usually) six mean? 


Setting up a character 

The six attributes cover both the mental and physical side of a 
character. The three mental ones are usually ego, intelligence and 
intuition, while the physical aspect of a character is handled by 
strength, dexterity and constitution. There are a number of ways 
in which a character can be set up, but it is usually handled at the 
very start of a game by the computer. Occasionally you may be asked 
to assign your own character, in which case you'll have to be very 
careful when dishing out the points. For example, a strong character 
with no intelligence is not likely to get very far, so make sure you 
haven't used up all your points by the time you get round to assign¬ 
ing intelligence. 
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Points? Well, normally, each attribute is rated on a scale of 3 to 18, 
with 3 being the lowest possible value. This is in accordance with 
the original 'Dungeons and Dragons' where the points were deter¬ 
mined by rolling three dice. Each roll covered one of the attributes, 
and by adding up the score on the dice you got the value for that 
particular attribute. Of course, using the 64 you'd just generate 6 
random numbers between 3 and 18. 

This gives you the opportunity to assume a possible 16,777,216 dif¬ 
ferent characters: more than enough. 

The way these points are dished out will determine whether or not 
the character is going to get on in the adventure world that you 
create for him, so it's probably fair to allow the player another chance 
if he doesn't like the first set of attributes. 

Now we'll look at each one in turn, and see how they would affect 
a player's performance. 


Ego 

This is a measure of mental toughness and willpower. On one level, 
it determines how a player will react if presented with a difficult situa¬ 
tion. A player with a low ego may well give up, and thus not be 
able to fight a monster, leap for a high shelf, or whatever, whereas 
a player with a high ego is much more likely to do well and increase 
his efforts when the going gets tough. 

On another level, it affects the way a player will perform when deal¬ 
ing with another player or character in the game. If you're trying 
to barter for something, a higher ego will probably get a lower price, 
and vice versa. If you're trying to talk your way out of a fight with 
a monster, a higher ego is more likely to succeed than a lower one. 


Intelligence 

This basically affects the way a player will get on in a game, whether 
he plays a rational, logical game, or a totally irrational and illogical 
one. 

Naturally enough the former is more likely to'succeed than the lat¬ 
ter, and so whenever the player encounters a monster or some other 
character that other character will respond accordingly. If you leap 
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into battle every time without a second thought for your own safe¬ 
ty, you're not going to survive very long. 


Intuition 

In the role-playing world this behaves exactly as it would in real life. 
A character with high intuition is far more likely to be aware of a 
monster lurking around the corner, or a secret trapdoor hidden in 
the wall, than a player with very low intuition. 

To put it another way, a high intuition character will find secret doors 
and hidden passageways with ease, whereas a low intuition one will 
only discover hidden traps by falling into them. 

Those are the three mental attributes, but the three physical ones 
are just as important in determining how a player is going to suc¬ 
ceed (or fail) in the game. 


Strength 

This chiefly affects the way a player will perform in combat, although 
it also governs other things such as how many treasures a player 
can carry, which is in turn related to fatigue etc. 

In combat, strength determines your ability to defeat an opponent, 
by gauging how heavy your blows are and how much damage they 
will inflict. Also, since a stronger player can carry and wield heavier 
weapons than a weaker one, he will be able to do that much more 
damage as well. 

Stronger players therefore have a much better chance of surviving 
than weaker ones. However, if you're playing a role-playing game, 
don't put all your eggs in one basket: each category is important 
if your character is to do well. 


Dexterity 

This governs such factors as reflexes, speed, hand-to-eye co¬ 
ordination, and so on. In a fight, a highly dextrous character will 
be able to jump out of the way, whereas a less dextrous one will 
probably only jump into the way. 
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Also, in combat a dextrous player will strike more blows where he 
aims them and block more blows from his opponent than one who 
is less dextrous. This means that his chances of survival are that 
much higher. 

Dexterity is also related to manipulation of objects. A dextrous player 
may well be able to pick up a tiny bottle and pour a potion into it, 
but a non-dextrous player will probably only succeed in pouring it 
all over the floor. 


Constitution 

This is possibly the most important attribute of all, since it deter¬ 
mines how much suffering a player can take before giving up and 
lying down to die. 

It covers such things as the number of blows and amount of damage 
that can be sustained in battle, how rapidly a player will tire (from 
moving or fighting) and so on. To a player of low constitution, even 
running away can be a hazardous exercise. 

Thus constitution is linked to strength, in that it governs fatigue, 
and how long a player can keep going when the going gets tough. 


And a seventh 

To all these attributes must really be added a seventh, namely that 
of experience. 

As the game progresses a player will learn many things, the posi¬ 
tion of various objects, the power of the assorted monsters, possibly 
even the attributes of some of his fellow players. Experience can 
play a vital part when starting to play a game, and so this too should 
be stored along with the player's other six attributes. 


Starting to write a game 

Rather like writing a conventional adventure game, you must never 
sit down at the computer and think 'My God! 30K of code to pro¬ 
duce'. That won't get you anywhere. You should really start in the 
same place and begin by drawing up a map of the area. This time. 
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though, you don't need to worry about verbs and nouns, since there 
aren't going to be that many. Fighting and casting spells, examin¬ 
ing things and opening things, getting items and dropping them, 
and the traditional HELP, SCORE, QUIT, INVENTORY etc. are just 
about all we need. 

Once you have drawn the map, and decided whether you're going 
to be graphical or textual, you might as well write or illustrate all 
the rooms and get that out of the way. 


Then you'll need to have a little routine to set up the character's 
attributes. Here's how one program set about it, in a slightly unor¬ 
thodox game. 

10 P0KE53281,0sP0KE532B0,9 s PRINT"CCLR,YEL3 
***TENNIS HENACE***" 

12 GOSUB10000 

100 REM START OF GAME PROPER 

10000 P0KE53272,23: PR I NT " C2CDDIN THIS GAME YOU ARE 
IN CHARGE OF A TENNIS HERO ." 

10001 REM G0SUB14100 

10002 PRINT:PRINT"IT IS YOUR JOB TO GUIDE YOUR HER 
0 TO FAME, FORTUNE, AND WIMBLEDON. 

10004 PRINTS PRINT"OF COURSE, DISASTERS MAY BEFALL 
YOU EN ROUTE.REFERRING TO THE 

10006 PRINT"COURT THAT YOU'REPLAYING ON AS "sCHR*( 
34)s"THE PITS OF THE EARTH"; 

10008 PRINTCHR4(34);" WILL NOT ENHANCE YOUR CHAN 
CE OF QUALIFY-ING FOR WIMBLEDON." 

10010 PRINTs PRINT"WOWEVER, SEEK OUT THE RIGHT SPON 
SORSHIP DEALS, ATTEND THE RIGHT "; 

10012 PRINT"TOURNAMENTS, BUYTHE RIGHT KIT AND USE 
THE SERVICES OF THE 

10014 PRINT"BEST TRAINERS AND YOU MIGHT (CRVS3MIGH 
TC0FF3) STAND A CHANCE." 

10016 GOSUB12000 

10018 PRINT"!CLR,PUR3OKAY, LET'S START THE GAME." 
10020 PRINT"C2CD,YEL3WAVE YOU A PREVIOUS GAME SAVE 
D TO TAPE <Y OR W)?" 

10022 GETPB* sIFPB$="Y"THEN13000 
10024 IFPB$="N"THEN10028 
10026 GOTO10022 

10028 PRINT"C2CD,GRN3LET'S HAVE YOUR NAME."sPRINT" 
CCD3WAME PLEASE ? ";sG0SUB60000 

10030 F0RI=1T0LEN<CM*)sIFMID*(CM*,I,1>“" “THEN1003 
4 

10032 NEXT 

10034 N1*=LEFT*<CM»,I-1)sN2*=MID*(CM*,I+l) 

10036 PRINT"CCD,GRN3OKAY ";Nl*s" WHAT DO YOU WANT 
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"9 PRINT 11 TO CALL YOUR PLAYER?" 

10038 PRINT"CCD3PLAYER'8 NAME ? ";:G0SUB60000 
10040 F0RI®lT0LEN<CM4>9lFMID*<CM4,I,l>»" "THEN1004 
4 

10042 NEXT 

10044 N34=LEFT»<CM»,I-1) 9N4$=>MID*(CM*,I+1) 

10046 PRINT"C2CD,PUR3/?I6HT, LET'S GIVE YOUR PLAYER 
SOME CHARACTER."sGOSUB12000 

10048 PRINT"CCLR3 CWHT3***CHARACTER ROLE* 

**" 

10050 PRINT"C2C0,YEL3YOUR PLAYER HAS SIX ATTRIBUTE 
S, WITH EACH ATTRIBUTE BEING "j 

10052 PRINT"SCORED ON A BASIS OF 1 TO 5. FOR EXA 
MPLE, AN ATTRIBUTE 0F5 "j 

10054 PRINT"FOR AGGRESSION WOULD MEAN THAT " 

10056 PRINTN3*;" "jN4*;" WAS PRETTY AGGRESIVE."sPR 
INT 

10058 PRINT"* RATING OF 1 WOULD MEAN THAT "tPRINTN 
34 j" "N44;" WOULD WANT THEIR MUM” 

10060 PRINT"IF A POINT WAS AWARDED AGAINST THEM." 
10062 PRINT"E2CD,CYN3Y0U HAVE A TOTAL OF 20 POINTS 
TO AWARD YOUR HERO OVER ALL 6 "s 
10064 PRINT"ATTRIBUTES. AS A HINT, DON'T TRY AND 
GIVE HIM/HER MAXIMUM"; 

10066 PRINT"PQINTS FOR EVERYTHING.";GOSUB12000 
10068 PRINT"CCLR3 CWHT3***CHARACTER ROLE* 

**" 

10070 PRINT"C2CD,YEL3Y0UR ATTRIBUTES ARE;" 

10072 PRINT"C2CD,RED3INTELLIGENCE"s PRINT"4GGRESSI0 
N"s PRINT"STRENGTH"s PRINT"INTUITION" 

10073 PRINT "SPEED" 

10074 PRINT"DEXTERITY" 

10076 PRINT"CCD,YEL3M0W AWARD YOUR POINTS." 

10078 PRINT"CCD3INTELLIGENCE ? "s:G0SUB60000:A<1>= 
VAL<LEFT4<CM4,1>) 

10080 PRINT"AGGRESSION ? " 5 :G0SUB60000:A(2)=VAL(LE 
FT4<CM4,1>> 

10082 PRINT"STRENGTH ? "5 sG0SUB60000:A(3)=VAL(LEFT 
*(CM»,D) 

10084 PRINT"INTUITION ? " 5 :G0SUB60000sA(4)=VAL(LEF 
T*<CM*,1)) 

10086 PRINT"SPEED ? ";s G0SUB60000:A <5)=VAL(LEFT4(C 
M*,l)> 

10088 PRINT"DEXTERITY ? ";:G0SUB60000:A(6)=VAL(LEF 
T*<CM*,1>) 

10090 A=0sF0RI=lT06>A»A+A(I) 9 IFA(I)>5THENPRINT"«AU 

GHTY!":F0RJ=1T01000:NEXT:G0T010068 

10092 NEXTI:IFA>20THENPRINT"NAUGHTY!":F0RJ=1T01000 

9 NEXT:G0T01006B 

10094 GOSUB12000 

10096 PA=50:REMPLAYER APPEAL ON A SCALE OF 0 TO 30 
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10098 PRINT"CCLR,CD3FINAL QUESTION : IS YOUR PLAYE 
R MALE OR FEMALE <M OR F)?" 

10100 GETPS*:IFPS$="M"THENM=1s F=0:GOTO10106 
10102 IFPS$="F"THENM=0:F=lsBOTO10106 
10104 G0T010100 

10106 PRINT"CCD,6RNIYOUR LAST LOOK AT EVERYTHING B 
EFORE WE STARTs" 

10108 PRINT"C2CD34S MENTOR, YOUR NAME IS :":PRINTN 
1*!" "N2* 

10110 PRINT"CCD3OUR HERO'S NAME IS s"sPRINTN3$?" " 
N4* 

10112 PRINT"CCD3PND "sN3*;" IS HOPEFULLY s"sIFM=lT 
HENPRINT"C PUR 3 MALE."s GOTO10116 
10114 PRINT"CPUR3FEMALE." 

10116 PRINT"CCD,YEL3PERSONALITY RATINGS ARE:" 

10118 PRINT"C2CD,RED3INTELLIGENCE ";A(1)sPRINT"PBG 
RESSION ";A(2):PRINT"STRENGTH "sA<3) 

10120 PRINT"INTUITION "sA(4)sPRINT"SPEED "sA(5)sPR 
INT"DEXTERITY ";A(6 > 

10122 GOSUB12000 

11999 END 

12000 PRINT"CCD3 CRVS,YEL3PRESS 'SPACE’ TO C 

ONTINUE." 

12002 FOR I=1 TO 10 s GETSP* s NEXT 
12004 GETSP*:IFSP*<>" "THEN12004 
12006 RETURN 

13000 REM LOAD PREVIOUS GAME 

13999 BOTO100 

14000 REM 25 TOURNAMENTS, 20 MALE PLAYERS, 20 FEMA 
LE, 20 SPONSORS 

14100 F0RI=1T025:READTR$(I>:NEXT:F0RI=1T020:READPM 
$ <I):NEXT 

14110 F0RI“lT020sREADPF$(I)sNEXTsFQRI=lT020sREADSS 
XI): NEXT 
14112 RETURN 

50000 DATA"MIGAN ODEON","BLACK MILL FIELDS","POCHD 
ALE OLYMPIA","HOOLIGANS" 

50002 DATA"UGANDAN OPEN","SWISS CHAMPIONSHIPS","HR 
ECKYAVIC OPEN“.”BUMBLEDON" 

50004 DATA"HENLEY HILL","CRYSTAL PALACE","ALBERT H 
ALL","BAMPSTEAD BEATH" 

50006 DATA"HEASDEN OPEN","OGLYSVILLE","SCARSDALE", 
"4RGUS OPEN" 

50009 DATA"STALLA ERTOIS","HENSON & BEDGES","SCOTC 
H WHISKY" "BURL I MANS 11 

50010 DATA"FOREST HILLS","FRENCH OPEN","AUSTRALIAN 
OPEN","HIMBLEDON" 

50011 DATA "DAVIS CUP" 

50020 DATA"BJORN BORG","JOHN MCENROE","IVAN LENDL" 
,"JIMMY CONNORS","STAN SMITH" 
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50022 DATA"ZLIE WASTASE" , "tiOSCQE TANNER" , "rtOD LAVE 
R“,"PETER DENNING" 

60000 CM$="" 

60002 PRINT"C RVS,YEL 1 * C OFF,CL 3"8 
60004 GETZS:IFZS®""THEN60004 

60006 Z=ASC<Z$> :IFZ<32ANDZ<>13ANDZ<>20THEN60004 

60008 ZL a LEN(CMS):IFZL>20THEN60012 

60010 IFZ>31THENCN^=CM$+Z^sPRINTZ^5:GQT060002 

60012 IFZ=13ANDZLTHENPRINT" RETURN 

60014 IFZ=20ANDZLTHENCM$=LEFT$(CMS,ZL-1)s PRINTZSs 

60016 G0T060002 

READY. 

No need to explain the listing, it's all fairly straightforward, but you 
can see how the attributes are distributed in this one, and checks 
made to see whether or not a player has tried to create a super¬ 
human character for himself. 

Then to the complicated part of the process: the other characters 
in your particular role-playing universe. Are they all going to be 
governed by the computer, or are you going to allow more ihan one 
player to take part? Indeed, can your player control more than one 
character? 

This, and a whole lot more questions, will have to be answered 
before you can begin to complete the program. 


Conclusion 

Although we haven't got the space to go too deeply into role-playing 
games in this book, you should have begun to get some idea of the 
concepts involved. 

Role-playing games are a real alternative to adventure games, 
because they are different every time you play them. For any one 
particular game you might like to have a whole host of different 
characters stored on disk or tape and see how the game varies each 
time you play it using those different characters. You might have 
one strong character, one intelligent one, one dextrous one, and 
so on. 

As we said at the start, the games never really finish, and you could 
go on developing your various characters for months without ever 
getting tired of playing the game. 
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A good place to start, If you want some experience of playing this 
type of game before attempting to write one, is with the Epyx series 
of games under the general heading of 'Dunjonquest'. They are 
marketed by Automated Simulations Inc. The main game, The Tem¬ 
ple of Apshai' was once voted the computer game of the year, and 
although that may be stretching a point it is an excellent game to 
begin with. It covers most of the points that we've mentioned in 
this chapter, as well as a good deal more, and is well worth a look. 

There are also a number of expansion units to this main game, such 
as 'The Curse of Ra', 'The Upper Reaches of Apshai', and so on, 
but you'll still need the original 'Temple of Apshai' to play them, 
so you might as well get that one first to see if you like the genre. 

And with that, happy role-playing! 


'I 
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12 

Conclusion 


Adventure games are not that difficult to write, but not everyone 
can write an adventure. Rather like a novelist, the would-be adven¬ 
ture writer must have a fertile imagination, although as we've seen 
it is possible to crib from the classics and get your storyline that way. 
However, even that is not a guarantee that the finished game will 
be on a par with those of Level Nine, Infocom, and the like. 

Unlike a novel writer, though, the adventure programmer needs a 
lot more than just a typewriter (or word processor!) and some sheets 
of paper. A blank screen can be just as daunting as a blank sheet 
of paper, but I hope that the routines presented in this book will 
enable a programmer to get the best out of the both the Commodore 
64 and his abilities as an adventure writer. 

Text or graphics, splitting the screen or not, using disk or tape, what 
sort of parser to use, whether the text should be compressed or not, 
are all problems that we've looked at throughout the course of this 
book. Whichever way you turn your programming abilities is of 
course up to you, but it is best to stick with a subject that you know 
something about. If your interest in reading tends towards the 
science-fiction world, why not try to write a science-fiction adven¬ 
ture game? On the other hand, if you prefer the novels of Agatha 
Christie, there haven't been that many good detective adventure 
programs. 


Developing adventures 

At a recent computer exhibition, a group of us were gathered around 
talking about adventure games. Three of us were writers (and 
players) of these games, and another couple were very experienced 
adventure players. For would-be adventure game writers, our con¬ 
versation would have made an interesting transcript, but since I 
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neither have that nor a photographic memory, perhaps just a few 
hints will serve my purpose. 

The writers among us were complaining (as usual) about the level 
of complexity that a game has to offer. Produce a relatively simple 
game and everyone solves it first time around, but a game that is 
so difficult that most people never even leave the first location will 
probably put a number of players off adventure games for life. Since 
you have written the game, the solution will be obvious to you, but 
to another player the game may be hopelessly complicated. 

A useful thing to do, after having written the game, is to invite some 
friends around and let them play it while you're watching. A nerve- 
racking experience, but the final game will be all the better for their 
comments. You may think that dropping the rod and then picking 
up the bird before putting it in the cage is an obvious solution, but 
I've heard of people trying to feed the bird sandwiches, strangle the 
bird, throw the cage in the bizarre hope that it will land on top of 
the bird, and many more weird suggestions that aren't worthy of 
repetition in a book as wholesome as this one. 

The best adventures tend to be the most logical ones, and that is 
a point that every adventure author should bear in mind. Even great 
writers suffer from time to time, though, and in (I think) 'Zork III' 
there is a ridiculous situation where you have to turn a bucket into 
a well by pouring water into it, or so I'm reliably informed. Personally, 
that is not a solution that I would have thought of. 

Still, I think we can forgive Infocom the odd lapse or two: I've yet 
to hear of a serious bug in any of their programs. 


The future 

But what of the future? Traditional adventure games like 'Colossal 
Cave Adventure' have now been played for upwards of six years, 
and newer ones like 'Zork' and 'Multi-user Dungeon' look likely to 
have an equally long life. As newer and more powerful computers 
appear, so will newer and more powerful adventure games. The first 
games are (generally speaking) never among the best. 

People keep trying to persuade us that the so-called arcade- 
adventures herald the future of this type of game, but I doubt it. 
I have seen one game that was definitely of this genre, requiring 
a joystick and most of the keyboard to play it. What has happened 
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to the times when we used to spend hours hunched over a keyboard, 
peering at the computer screen (usually the only source of light in 
the room), trying to glean some idea of what the next move should 
be? 

Despite reviewers and shops, thankfully a lot of people still seem 
keen on the traditional adventure way of thinking and writing, and 
I hope you do too. Looking outside, the lights grow dim and it is 
time, for the umpteenth occasion, to load 'Zork' into the 64 and go 
on another journey in the underworld. 

I hope this book will nudge you along into your own world of adven¬ 
ture writing, and if just one of you can come up with a game that 
will keep me glued to the keyboard trying to solve it, then the pur¬ 
pose of this book will have been achieved. 

Happy adventuring! 
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FURTHER ADVENTURES 
ON THE 

COMMODORE 64/128 


A disk containing the complete Enormous Cave 
adventure, The Lost Wallet and the Basic 
Compiler is available direct from Duckworth at 
£9.95, post free. Send your cheque/postal order 
to the address shown below or alternatively 
telephone 01-485 3484 with your Access or 
Barclaycard number. 


Peter Gerrard’s first adventure book, Exploring 
Adventures on the 64, is also available at £6.95, 
post free. It contains three complete adventures 
for the 64. 




DUCKWORTH 

The Old Piano Factory 
43 Gloucester Crescent 
London NW17DY 
Tel: 01-485 3484 
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DUCKWORTH HOME COMPUTING 

THE ODYSSEY by Mike & Peter Gerrard 

This is a big, interesting and well-planned adventure which should ensure you 
get your money’s worth.’ Your Computer 

‘Fat enough, and tricky enough, to give many, many hours of arcane 
entertainment.’ Commodore User 

Homer’s epic tale, The Odyssey, composed nearly 3000 years ago, is one the first 
adventures ever written. It relates the heroic story of Odysseus, a story adventure 
players can now relive in a mammoth 80K text adventure for the 64. 

The ten-year siege of Troy by the Greeks is at an end, and as Odysseus you 
must make the perilous journey from Asia Minor to reclaim your throne in Ithaca. 
Only a full crew and regular supplies of food and water will see you through your 
battles against the Sirens, the Lotus Eaters, the race of giants, the one-eyed 
Cyclops, the six-headed monster Scylla and the whirlpool Charybdis. Can you 
escape the nymph Calypso, survive the wrath of the god Poseidon, and finally 
defeat your challengers in the Battle in the Hall? 

The game is divided into two parts on separate cassettes, each of which 
employs a turboload system which considerably reduces loading time. The parts 
may be played in either order and you are allowed to save your progress at any 
point. Cassette £9.95 

THE COMMODORE 64/128 ADVENTURE PACK 
by Peter Gerrard 

This pack contains four superb text adventures on disk as well as a copy of The 
Adventurer’s Notebook by Mike Gerrard, which will guide you into the world of 
adventures. The adventures included are: Colossal Cave, the very first 
adventure, originally written on a mainframe computer; True Spit, set in the wild 
west where you are a bounty hunter out for blood; Spaced Out, in which you are in 
charge of a secret formula in the depths of space; Underground Adventure, in 
which you find yourself exploring a vast network of caverns. Each adventure 
allows you to save your progress on disk at any time. £14.95 

THE COMMODORE PLUS/4 ADVENTURE PACK 
by Peter Gerrard 

As above but for the Plus/4. £14.95 

‘Worth the £14.95 it costs just to get a copy of the classic Colossal Cave for your 
Plus/4.’ Your Commodore 

Many other adventures and books are available. Write in for a catalogue of our 
Commodore products, or telephone 01-485 3484. 
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The Old Piano Factory, 43 Gloucester Crescent, London NW1 7DY 





























FURTHER ADVENTURES ON THE 
COMMODORE 64/128 
by Peter Gerrard 

Peter Gerrard's Exploring Adventures on the 
Commodore 64 explained clearly howto write text-based 
adventures in Basic. This, his latest book, will transform 
your programming techniques. Assuming an average 
knowledge of Basic, it covers text compression, tape- 
based, disk-based and role-playing games, incorporating 
graphics and sound, improving program response times 
and creating sophisticated parsers in both Basic and 
machine code to give your adventures professional 
polish. 

Enormous Cave, a full-blown disk-based adventure 
and sequel to Colossal Cave Adventure, is included to 
demonstrate how to create mammoth games with 
Infocom-like complexity. Each part of the listing is fully 
explained, showing howto incorporate hundreds of 
locations, an extended vocabulary, lengthy room 
descriptions and numerous messages. A tape-based 
adventure, a demonstration of role-playing games, and a 
complete BASIC COMPILER - which will make your 
programs run at lightning speed — all combine to make 
i this book a comprehensive guide to the intricacies of 
\ writing adventures. 

n Peter Gerrard, former editor of Commodore 
1 Computing International, is the author of many 
Duckworth books and adventure games including Using 
the 64 and Advanced Basic and Machine Code for the 
Commodore 64. 
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